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Check We've Stopped Testing a Unit 
SCREATE-Specific Error Checker 
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System Service Exception Handler 
General RMS Error Handler 

CTRL/C Handler 

Error Exit 

Exit Handler 
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“TDILs ETDISKOO - VAX/VMS UETP DISK EXERCISER 
» IDEN Vide-b00" 
"ENABLE SUPPRESSION 


OOOCoo 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED weet A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH iat ay 7 ets THE 
INCLUSION OF THE ABOVE get NOTICE. THIS Soft ARE OR OTHER 

COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO _ ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 

® ot 
® ® 
® * 
® = 
® ® 
® ® 
® ® 
® ® 
® ® 
* TRANSFERRED. * 
® w 
® ® 
® * 
sd w 
® ® 
& ® 
® ® 
® * 
* ® 
** ® 


OOCoooooooooo 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ooRPORAT ion NOT BE CGNSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


LARARAPALAAARALALALALASALELALE SESE SLES RRR E SESE R ESR REE ES ARERR E RRS ALAS SS 


FACILITY: 
This aetule will be distributed with VAX/VMS under the [CSYSTEST] 
account. 


ABSTRACT: 
Exercise testable units of a disk controller by writing and verifying 
miscellaneous blocks of test files on those units. 


ENVIRONMENT: 

This program will run in user access mode, with ASTs enabled except 
during error rocess ing The program requires an AST Limit of 55, a 
buffered 1/0 Limit of 55 and no privileges. 


OOoooooooocoo 
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AUTHOR: Richard N. Holstein, CREATION DATE: August, 1981 
MODIFIED BY: 


OOoOoCooooooo 


v03-011 DASO001 David Solomon 29-Feb-1984 
Remove inappropriate reference to FAB EDL bit. 
V03-010 RNHOO11 Richard N. Holstein, 15-Feb-1984 


Take advantage of new UETP mes 33299 codes. Fix SSERROR 
interaction with RMS_ERROR. x ONE_SHOT_TEST register usage 
for VERIFY_ERROR calT. 


V03-009 RNHOO10 Richard N. Holstein, 19-Dec-1983 


NO NEW O OO NOUNS WIN 0 ODNAUE WIN | © ODNOAU EWN 0 OO NOU EW OOONOUS WN 
+ 
+ 


MAAN BB BEE EEE PWN Iinoponononononononony 3 2 2 
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Give correct sentinels to Test Controller. 


v03-008 RNHOO09 Richard N. Holstein, eoonoy, 1965 
Be more specific when cleonine up test data files - works better 
if ayi tie e tests run simultaneously. Aiso when cleaning up, 
terminate 1/0 cleanly to allow file erasure. 


V03-007 RNHOOOS Richard N. Holstein, 11-Nov-1983 
Use decimal conversion routine for unit numbers. 


V03-006 RNHOOO7 Richard N. Holstein, 05-0c t-1983 
Get around an 11/750 Buffered Datapath bug which corrupts data, 
and a driver patch which gives correct data at the aapenee of 
data late errors being Logged. by Longword aligning the 
read/write buffers. This is V03-001 in the V3 sources. 


V03-005 RNHO006 Richard N. Holstein, 26-May-1983 
Exercise disks a bit more by setting the FOP EDi bit. 


V03-004 RNHOOOS Richard N. dolstein, 10-Mar-1983 
Invoke SSERROR in AST routines to prevent some improperly 
handled conditions. Don't signal ending message in 
EXIT_HANDLER. 


V03-003 RNHOO004 Richard N. Holstein, 06-Jan-1983 
Allow for longer file names and longer device names. 


V03-002 RNHOO03 Richard N. Holstein 15-Oct-1982 
Miscellaneous fixes Listed in the V3B8 UETP Workplan. 


V03-001 RNHOOO2 Richard N. Holstein, 06-Aug-1982 
Edit to bug source only. See edit V03-006 above. 


V02-001 RNHOOO1 Richerd N. Holstein, 11-Dec-1981 
Allow further flexibility in testing by recovering from most 
RMS$_FUL situations when creating a file. Include PATTERN to 
force a definite pattern to disk. Give a message when we've 
cpuprenety stopped kesting aunit. Suppress leading zeroes 
when reading and remembering disk unit numbers. Clean up old 
files before creating new ones. 


Sosssoes 
pole lw lei alo lela lo lo lo lalolololo) 


SOOooooooooooooo 


OWONAUE WN SO OD NAME WN OO ONAUE Wr" O0OO@ 
TRIE ITE IE IOI Ieee ee eee rere rere rere re rererererererere rere rere rere rere re eee 
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0 
UETP.SRC GETDYSKOO MAR: 1 


-SBTTL Declarations 


3; INCLUDE FILES: 

3 SYSSLIBRARY:LIB.MLB for general definitions 

$ SHRLIBS$:UETP.MLB for UVETP definitions 

3 MACROS: 
SCHFDEF 3; Condition handler frame definitions 
SDEVDEF : Device definitions 
SDIBDEF 3 Device Information Bluck 
SDVIDEF 3; SGETDVI ITMLST item codes 
SNAMDEF ; NAM block constants and offsets 
SSHRDEF ; Shared messages 
SSSDEF ; System Service status codes 
SSTSDEF ; Status return 
SUE TUNTDEF ; UETP unit block offset definitions 
SUETPDEF 3; UETP 


: EQUATED SYMBOLS: 


: Facility number definitions: 
RMSS_FACILITY = 1 


; SHR message definitions: 
UETP = UETPS_FACILITY@STS$SV_FAC_NC ; Define the UETP facility code 


UETP$_ABENDD = UETP!SHRS$_ABENDD'; Define the UETP message codes 
UETPS$_BEGIND = UETP!SHR$_BEGIND 
UETPS_ENDEDD = UETP!SHRS$_ENDEDD 
UETPS_OPENIN = UETP!SHRS$_OPENIN 
UETPS_TEXT = UETP!SHRS_TEXT 
: Internal tion bits...: 
TEST_OVERV = 1 ; Set when test is over 
SAFE _TO_UPDV = ¢ 3; Set if it's safe to update VETINIDEV 
BEGIN MSGV = ; Set if "BEGIN msg has been printed 
SROT =4 : Set if running in one-shot mode 
PATTERNV = 5 ; Set if specific pattern data to write 
3 .»-and secrgspending masks: 
TEST_OVER = TaTEST_OVERV 
SAFE_TO_UPDM = 1aSAFE TO _UPDV 
BEGIN _MSGM = 1aBEGIN MSGV 
SAOT = 1@0NE_SAOTV 
PATTERNM = 1aPATTERNV 
; Miscellany: 
M 20 ; Mask to convert lower case to upper 


UETINIDEV.DAT record size 

Internal text buffer size 

EFN used for three minute timer 
Synch miscellaneous system services 
Longest possible process name 
Longest possible controller name 
Longest possible unit number 


WOox 
™~m 


REC_SIZE 

TEXT BUFFER 
EFN2 
SS_SYNCH_EFN 
MAR_PROC ~NAME 
MAX~DEV_DESIG 
MAX"UNIT_DESIG 


cc ee a ee ee ee me ee ee ee ce ee ee ee ee ee ed ed ed ed 
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y 1>h35°° her laratens : SEP 1382 8} $¢ ¢} UE 
157 ; Disk specific definitions: ; P 
TE ee ERE sue 2 SBE BME HE oe ue sng stten 
® . r 
aa 18 ror per . af 55 : mex mun percentage of unit ve use 
§ si 188 BAKERS s 33 : Reteete dosent Goterates when to qzeand 
9 o0f 18% yea PATTERN . *x55555555 : Contents of ann Mh Be the lie d 
$0099 188 BISE-U-Gre Aare = Je TUNTSV TESTABLEST = “oneat SCREATE failed 
Mitte 198 DISK_V_NOCREATE = veryet VoNOCREAT 3 
$0003 18 DISK VINO A TEND . DISK_V-NOCREATE+1 ; On if SEXTEND failed 
9000008 : 5 DISKUM"NOEXTEND = 18D1SK~V_NOEXTEND 
0000008 36 198 a 
153 3 ture set up, called a 
0999 158 : Soden "Teens actos atit’ ts hte togethers in-a.selfurelat ive sree wees 
: : h node w e ° 
74 ; header is UNIT_LIST. The first part of eac +f 
BBS Ug trie et ee ae lo Sh tr RT Ge 
; depe ‘ " A. 
: hat what look Like declarations 
S008 128 3 ABSOLUTE os eed et eae really just offsets into a given node on the 
Sone ibe 5 Ser inittons one the a shetous consequence of using an ABS PSECT is that 
BOB tap ¢ queues A pet nocessar itn’ BLKx operations, since ‘BYTE. etc., attempt to 
BOS 48} 5 Space Gust be reserved with . iff from most other device tests in 
: . This data structure differs 2 
itd ip : Sree ohare 's aes than one node per unit in normal and loop forever a 
$005 ig : -PSECT DEVDEP_STR_DEF ,ABS,NOEXE,NOWRT,PAGE ; Note ABS aero 
000001A4 $009 186 -BLKB UETUNTSC_DEVDEP : Skip over standard UETUNT bloc 
Sine 188 DISK_W_UNIT: ; This unit number 
Q00001A6 O1A4 189 tet TSR 
Wy 194 DISK_B_FILE: ; Number of this file on this unit 
000001A7 01A6 19 ~~ 4 | 
: n this unit 
o1ap i hatecaeait tii ; Ptr to other file node o 
ales O1AB 196 ; Maximum space we'll use on this unit 
bag 13 OIK.f..,OF Pets ; 3 
eyres: Oar 00 ISK_L me ; Cur. size of this file on this unit 
00000183 OIA o} sia -BLKL 1 aia eee 
a183 er ec "typi : or erbuat la used to create the file 
0000018B 01B 04 -BLKQ 1 a aes . 
188 3 K_C_NAM: 3; NAM block for this file on this unit 
00000218 166 68 (an .BLKB = NAMSC_BLN 
iB os DISK_T_NAMFILSPC: ; Resultant file spec per file per unit 
0000031A ig 10 == .BLKB NAMSC_MAXRSS 
1A 13 DEP_SIZE = .-UETUNTSC_DEVDEP ; Device dependent part size gf nade 
ntti iA ig egenes.. , “ ; Note that this excludes buffe 
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‘i 
00000B1C 
2 
2 


00000006 


» ALIGN LONG 
DISK_K_BUFFER 
-BLKB WRITE_SIZE 


PAGES = age « Bed hy INDSIZ+- ; Add together all of the pieces... 


Prevent DDP data lates on 11/750 UDA 
1/0 buffer for both reads and writes 


EVDEP_SIZE+= i «eewhich make a UETP unit block.. 
WRITE_SIZE+511>/512> ; ...to give to the SEXPREG service 


—JDOOnous 


1 
1 
1 
1 
1 
1 
2 
2 


VETDISKOO 
v04-000 


53 45 54 53 59 


53 49 44 54 45 


50 55 53 54 45 


; 41 4E 4C 52 54 


45 446 4F 


4E 49 24 53 59 


21 20 42 58 32 


2A 20 42 58 32 


= VAX/V 
Read-On 


53 ares Seer 
55 were ig’ yt € 
30 30 48 

55 00000028'010E0000' 
56 45 44 

43 00000039'010E0000' 
45 4D 


4D 00000049'010E0000' 


00000000' 


53 tects | 


0000000C 


21 seinen 


™m 
oO 


21 venta Ninsaaaa * 4 


gp0g90 "gre Ogee 
re 2 ge 4 30 


$515.99 99 85 188 ce 9 


SS 


rororyo 
WIGS iroru 


PDAS AO MMIII —- ESSERE LLL EWG WO 
Fun OO ONOUME WIN | — OO OONOUM EWN OOON OS 


NOU 


rror MOMMY = POPOM POPIPOPOPONONOTY =o PUPOPOPoPoNoPoTroTrofnofnonofnoenyd» «= POrUTO) oo POPU 
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3 
4 
5 
; 
8 
9 
0 
1 
5 


‘ Read-Only Data 


ACNT_NAME : 
-ASCID /SYSTEST/ 


TEST_NAME : 
-ASCID /UETDISKOO/ 


SUPDEV_GBLSEC: 
eASCID /UETSUPDEV/ 


CONTROLLER: 
eASCID = /CTRLNAME/ 


MODE : 
-ASCID /MODE/ 
NO_RMS_AST_TABLE: 
LON R 


N 
-LONG RMS$_BUSY 
-LONG RMS$_CDA 


i) 
= 
wn 
wn 
— 


oO 
za 
oa 

A 


‘ R 
~LO RMSS_RAB 
NRAT_LENGTH = .-NO_RAS_AST_TABLE 


SYSSINPUT: 
-ASCID /SYSSINPUT/ 
INPUT_ITMLST 
oW 
CS1: 
eASCID /!2XB !2xB / 


CS3: 
-ASCID /!2XB **/ 


peteetatieet | 


NO_CTRLNAME : 
ASCID 


ORD  64,DVI$_DEVN 
LONG BUF PER BUFFER. PTR 
LONG 0 


198e Qaida:57 LOETPr SRC 


RODATA,NDEXE. NOWRT , PAGE 


SCID \Aborted via a user CTRL/C\ 


/No controller specified./ 


———___—————_} 


cro V04-00 Pp UE! 
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; Process name on exit 


Logical name of controller 


Run mode logical name 


et of errors for which.. 
..RMS cannot deliver an AST. 
even if one has an ERR= arg 
Note that we can search table.. 
~via MATCHC since <31:16>. 
«pattern can't be in <15:0>- 


Name of device from which... 
--.the test can be aborted 


SGETDVI arg List for SYSSINPUT 
We need the equivalence name 
Terminate the List 


Device class and type control string 


This test name 
How we access UETSUPDEV.DAT 
Device class-only control string 


—— nae 
| 
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20 74 27 6E 61 43 OOD000EC'010E0000' oes g 8 ent, stereo! /Can't test troll 'AS ked ble in UETINIDEV.DAT./ 
° an't test controller !AS, marked as unusable in 4 a 
6C 6F $3 $f 6E 6F 00 8 ct t 6 $ F2 
72 $1 $p 20 § 341 21 7 6C OQOFE 
61 73 of 0 73 61 64 6 10A 
4E 49 54 45 55 20 6E $2 65 6C 6 118 
2E 54 41 44 2E 56 45 44 4 } £ - 
128 are NOUNIT_SELECTED: 
69 6E ¢? 6F rt: g00neT sy: 4059090" 1 3 7 -ASCID /No units selected for testing./ 
0 64 65 74 63 65 6 8 9 4 01 
E 67 69 74 73 65 74 20 6F 66 13 7% 
B12) 378 ILLEGAL_REC: 
61 67 65 6C 6C 49 ges re ee 151 76 -ASCID /Illegal record format in file UETINIDEV.DAT!/ 
72 6F 66 20 64 72 6F 6 $3 72 20 6C a2 
20 65 6C 69 66 20 6E 69 20 74 61 6D 168 
41 44 2E 56 45 44 49 GE 49 54 45 55 4 
21 54 0183 
0185 gif 
0185 78 PASS_MSG: 
66 6F $8 64 6E 45 88080 1 8p "01050008" 0185 279 -ASCID /End of pass !UL with !UL iterations at !%D./ 
69 77 20 4¢€ 55 21 20 73 73 61 70 $ et 
61 72 65 74 69 20 4C 55 21 20 68 74 GI9F 
44 25 21 20 74 61 20 73 6E 6F 69 74 O1AB 
2— 0187 
0188 580 
01B8 81 INIDEV_UPDERR: ; Error during exit handler 
20 72 6F 72 72 45 990001¢9"01 059000" 01B8 282 -ASCID /Error updating UETINIDEV.DAT./ 
54 45 55 20 67 6E 69 74 61 64 70 75 + 01C6 
2E 54 41 44 2E 56 45 44 49 4E 49 BBs 
10D 383 ’ 
01DD 84 THREEMIN: ; 3 minute delta time 
FFFFFFFF 94862E00 bape aH «LONG <-10*1000*1000*180,-1 
QO1E5 287 UNIT_DESC: ; Descriptor used to convert unit # 
00000005 O1E5 88 . LON 5 
0000001A'° RIED +4 -ADDRESS BUFFER+6 
BieD 91 CONT_DESC: ; Descriptor used to convert controller... 
0000 0028 O1ED 38 -WORD REC_SIZE,0 3 ...from lowercase to uppercase 
00000014' girl § .ADDRESS BUFFER 
bree 95 FILE: ; Fills in RMS_ERR_STRING 
65 6C 69 66 000001FD'010E0000' 2 a eASCID /file/ 
8 3 98 RECORD: ; Fills in RMS_ERR_STRING 
64 72 6F 63 65 72 00000209'010E0000' a + eASCID /record/ 
OF 01 RMS_ERR_STRING: ; ; Announces an RMS error 
41 21 20 53 4D 38 000002 17 "01050000" F 02 eASCID /RMS !'AS error in file !AD/ 
66 20 6E 69 20 6F 72 3 65 20 5 1D 
44 41 21 20 65 6C 69 9 03 
6 304 PROMPT: : ; 
7 ¢ 72 65 6C gc 6F 72 74 6E gf 43 5 ASCII /Controller designation?: / 
A 3F 6E 6F 69 74 61 6E 67 69 73 65 C 
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19 0309 
000000 ¢3 PMTSIZ = .=PROMPT 
49 
5D 54 53 45 54 53 59 53 5B 68" re 4 § 
5 10 
311 SYSO_SYSTEST_DIR 3; Part of filespec for_test files... 
45 54 53 59 53 2E€ 30 53 59 32 ca 99" ; 12 -ASCIC /LSYSO. SYSTESTI/ 3 «eeif they're on a V3 system pack 
0 6 314 DOTTST: ; Part of filespec for test files 
54 53 54 2E 8" 8 ° 15 eASCIC /.TST/ 
ose7 319 
67 17 PATTERN: $ couress name to soot it. pattern... 
52 45 54 54 41 50 sertraline * t 8 ef 18 -ASCID /PATTERN/ 3; «+.to write to test files 


SYSTEST_DIR: ; Part of filespec for test files... 
eASCIC /CSYSTESTI/ i «eeif they're on a scratch pack 
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-SBTTL Read/Write Data 
0000 1 -PSECT RWDATA,WRT,NOEXE,PAGE 
0000 TTCHAN: me 6 ; Channel associated with ctrl. term. 
FLAG: 3; Miscellaneous flag bits 
0000 004 -WORD 0 3; (See Equated syabsls fe for definitions) 
4 FAO_BUF : ; FAO output string descript 
0000 9084, 004 $30 .WORD _TEXT_BUFFER,O reteset Ronse Siar 
00000014" Bp8 “ADDRESS BUFFER 
00Cc BUFFER_PTR: 3 coke -ASCID buffer for misc. strings 
0000 0084 000 4 -WORD TEXT_BUFFER,O 3 d for Length, d for a 
00000014" at : “ADDRESS BUFFER sei Ae he a ptt NecRmN iy, Fat 
014 BUFFER: 3; FAO tput d othe isc. buff 
00000098 0014 338 .BLKB TEXT_BUFFER pies Past ice Misi p Pecos 
$698 40 DEVDSC: ; Device name descriptor 
0000 000A 94 41 -WORD MAX DEV_DESIG,0 
00000087" +45 2g -ADDRESS DEV _NARE 
QOA0 44 PROCESS_NAME: 3; Process name 
4B 53 49 44 000000A8'010E0000' O0A0 $2 -ASCID /DISK/ 
0000000B OOAC 46 PROCESS NAME _FREE = MAX_PROC_NAME-<.-8=-PROCESS_NAME> 
00000087 Boas rf -BLKB “PROCESS NAME _FREE 
0087 49 DEV_NAME: Device name buffer 
000000c6 0087 350 .BLKB  MAX_DEV_DESIG+MAX_UNIT _pésiG 
0000000F Ooce se) NAME LEN = 7=DEV_NAME 
boce 328 DIB: : Device Information Block 
0000 0074 00C6 $2¢ -WORD DIBSK_LENGTH,0O 
OOOOOOCE’ OOCA 55 “ADDRESS D1SB0F 
OOCE 56 DIBBUF : 
00000142 BOE zt -BLKB DIBSK_LENGTH 
S14 359 ERROR_COUNT: ; Cumulative error count at runtime 
00000000 Bes $ -LONG 0 
Stee 6¢ STATUS: ; Status value on program exit 
00000000 196 oF -LONG 0 
14A 65 QUAD_STATUS: ; 10 status block for misc sys. svcs. 
00000000 00000000 134 6 -QUAD 0 
133 o8 INADDRESS: ; SCRMPSC address storage 
00000000 00000000 01 $ -LONG 0,0 
15A 0 OUTADDRESS: 
00000000 00000000 178 4 -LONG 0,0 
16 58 UNI T_NUMBER: ; Current dev unit number 
C000 19 fe -WORD 0 
164 76 DEVNAM_LEN: ; Current device name length 
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VBa000 Read/Write Data et 84:32:85 toe TP, SRCIUETDY SKOO MAR; 1 ° (3) | 
0000 is 77 .WwORD 0 | 
1 sg RANDOM1 and RANDOM2 may be combined to produce a set of pseudo-random numbers 
16 0 RANDOM] : ; Random word #1 | 
AAAAAAAA 198 1 eLONG “XAAAAAAAA 
18h : RANDOM2: ; Random word #2 
A72EA72E 198 2 -LONG “XA72EA72E 
16E ITERATION: : # of ti Ll test ted | 
00000000 18 § oT mes a ests were execute | 
17 § PASS: ; Pass count | 
60000000 Vee a -LONG 0 
8158 38 MSG_BLOCK: ; Auxiliary SGETMSG info 
0000017A 176 a -BLKB 4 
SIPA 95 CATS PERE» ; Exit handler descriptor 
00000000 O17A 96 0 0 
00000C1C' girs 97 - ADDRESS EXIT_HANDLER 
00000001 018 98 1 
00000146' pi6 99 
018A 400 
BigA 401 pay ; Argument counter used by ERROR_EXIT 
00000000 BISA 106 «LONG 0 
8186 tRe ALIGN QUAD ; For self-relative queue of unit blocks 
3138 406 UNIT_LIST: ; Head of unit block circular List 
00000000 00000000 138 rtf -QUAD 0 
$198 409 NEW_NODE: ; Newly acquired node address 
00000000 00000000 He rt «QUAD 0 
01A0 a6 RANDOM_DATA: ; Buffer to fill with ‘‘random’’ data 
000009A0 Boag $17 -BLKL  <WRITE_SIZE+3>/4 ; Ensure it’s a multiple of longwords 
9A0 415 PATTERN_DATA: 3 Holds pattern to write to test. 
000009A4 O9A0 416 -BLKL 1 : ...files if PATTERN is defined — 


- VAX/VMS UETP DISK EXERCISER 
RMS-32 Data Structures 


465 $FAB- 


08 
0B 
OB 
C 
4 F 
: F 
is 
4 0 
R 
47 
74 473 DUMMY_RAB: 
$R 


74 474 


TX = 

6 AC = 

468 ; OP = 
& RS = 
RG = 

47 FA = 


RPP RR PPP PPPS 
oa 


16-SEP-1984 01:22:47 VAX/VMS M v04 
-SEP-1984 84:52:85 UET 


DISK_K_PATTERN,= 
<B10,P0T,GET>,- 
<EDL>.- 

WRITE _SIZE,- 
SEQ,- 

UDF 


-00 
UETP.SRC GETDY SKOO.MAR; 1 


; Allocate FAB for SYSSINPUT 


; Allocate RAB for SYSSINPUT 


; Allocate FAB for UETINIDEV 


; Allocate RAB for UETINIDEV 


; RFA storage for INI_RAB 


; Allocate FAB for UETSUPDEV 


SAG 4) -SBTTL RMS-32 Data Structures 
9A4 41 ALIGN LONG 
SAG 4 
944 401 SYSIN_FAB: 
7M 4 § $FAB- 
AS 4 FNM = <SYSS$INPUT> 
9F4 = 424 
9F4 425 SYSIN_RAB: 
9F4 4 § SRAB- 
OF4 4 FAB = SYSIN_FAB,- 
OF4 4 8 ROP = PMT,- 
OFS 42° PBF = PROMPT,=- 
9F4 3 §=6450 PSZ = PMTSIZ,- 
OF4 431 UBF = DEV_NAME,- 
09F4 4 é USZ = NAME_LEN 
pase 4 
A38 434 INI_FAB: 
Age 435 $FAB- 
A $38 FAC = <GET,PUT,UPD>,=- 
et aad SAR = <CET,PUT,UPI 
s >,= 
OA38 39-439 FNM = <UETINIDEV.DAT> 
OA8B8 = 440 
OA88 441 INI_RAB: 
0A8B <28 SRAB- 
0A88 44 FAB = INI_FAB,- 
OA8B = «444 RBF = BUFFER,- 
0A88 445 UBF = BUFFER,- 
OA8B 9446 USZ = REC_SIZE 
OACC 447 
OACC 448 DDB_RFA: 
QOOO0AD2 OACC 449 -BLKB 6 
OAD 450 
OAD 451 -ALIGN LONG 
OQAD4 re SUP_F AB: 
OAD4 45 $F AB- 
OAD4 454 FAC = GET,- 
OAD4 455 SHR = <UPI,GET>,- 
OAD4 456 RAT = CR,- 
OAD4 457 FOP = UFO,- 

D4 438 FNM = <UETSUPDEV.DAT> 
460 ; Pumay FAB and RAB to Cony to the UETP unit blocks ’ 
rhe ; The following FAB and RAB must be contiguous and in this order! 
168 
464 DUMMY_FAB 


: This will identify a test file 
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V °O00 RMS-32 Data Structures et 83:32:88 UETP.SRCJUETDISKOO.MAR;1 ts (6) V6e 
475 ROP = <ASY,BI0>,- ; RABSM_ASY cleared in one-shot mode 
B74 476 RSZ = WRITE SIZE,- 
Te of USZ = READ_SIZE 
BB 158 DUMMY _NAM: ; More specifically identify test file 
BB tt SNAM- 
481 RSS = NAMSC_MAXRSS 
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vite Test and Device Init athe on ~$ee= 1388 §):32:25 UETP.SRC SFPD SROs MAR: 1 shea 3) 
In 
G 


1 483 -SBTTL Test and Device Initialization 
0000000 : ? -PSECT DISK,EXE,NOWRT,PAGE 
: ? § DEFAULT DISPLACEMENT ,WORD 
488 ;+ 
4 § ; Start up the disk test. This entails some overhead necessary to cope 
00 490 ; with both expected and unforseen conditions, figuring out just what 
00 491 ; devices are to be tested, — sure we can test the indicated devices 
44 138 : and setting up writeable space for each device to be tested. 
494 ° 
0000 000 132 ENTRY UETDISKOO,“M<> ; Entry mask 
6D O9AS'CF DE 000 499 MOVAL SSERROR, (FP) 3; Declare exception handler 
000 498 SSETSFM_S ENBFLG = #1 ; Enable system service failure mode 
Soig 238 SDOCLEXH_S DESBLK = EXIT_DESC ; Declare an exit handler 
0018 501 SOPEN FAB = SYSIN_FAB,- 3 Open SYSSINPUT 
0018 208 ERR = RMS_ERROR 
002A 50 SCONNECT RAB = SYSIN_RAB,- 3; Connect RAB to SYSS$INPUT 
002A 504 ERR = RMS_ERROR 
02 €1 0039 #505 BBC S*#DEVSV_TRM,- : BR if SYSSINPUT is NOT a terminal 
1E O9E4'CF 0038 506 SYSIN FAB+FABSL_DEV,10$ 
003F 507 STRNLOG_S LOGNAM = CONTROLLER,- ; Allow terminal user to specify... 
OO3F 508 RSLLEN = DEVNAM_LEN,=- ; ...a Logics name... 
OO3F 509 RSLBUF = DEVDSC 3 ..-for the controller to test 
01 SO »vd1i 0058 #=510 CMPL RO,#SS$_NORMAL 3 Was a controller specified? 
2 «(13 p028 a] 2. BEQL PROC_CONT_NAME ; BR if it was - go process it 
005D 218 $GET RAB = SYSIN_RAB,- 3; Read SYSSINPUT... 
005D 514 ERR = RMS_ERROR 3 ...for controller name 
CA16"CF BO O006C 515 MOVW SYSIN_RAB?RAB$W_RSZ,- ; Save the name length 
0164'CF ty 516 DEVNAR_LEN 
16 12 007 517 BNEQ PROC_CONT_NAME : BR if we got something 
0146'CF 14 D0 0075 518 MOVL #SS$~BADPARAM, STATUS 3 Save an exit status if not 
‘CF OF OQO7A 519 PUSHAL NO_CTRLNAME ; Prepare for message... 
01 DD OO7E 520 PUSHL S ees 
00741132 8F DD 0080 521 PUSHL M#UETPS_TEXT!STSSK_ERROR ; ... 
03 DD 0086 5 ¢ PUSHL Seis 
0B11 331 st +4 2 ? BRW ERROR_EXIT 3; .-.to tell of bad setup 
088 5 PROC_CONT_NAME: 
0098'CF O164'CF 3¢ oe8 § MOVZWL 4 DEVNAM_LEN,DEVDSC 3 Set the device name length 
0098'°CF DF PUSHAL DEVDSC ; Make sure... 
0098'CF DF 0096 528 PUSHAL sc 3 «eethat the specified controller... | 
00000000 ' GF 2 FB QO9A 529 CALL #2,G*STRSUPCASE 3 ..-1S all uppercase for later comparison 
52 0098'CF Pe ba 0 ADDL »DEVDSC,R ; Estimate the eventual... vee 
OQOA0' CF 2 A0 A7 1 ADDW 2°PROCESS NAME 3 «.eprocess name length (incl. °*’_"') 
DE as § MOVAL PROCESS _NAME+8- ; Locate first available byte... 
AD 2 +MAX_PROC_NAME- $ eeeiM process name handle... 
50 OOAC'CF OAD 4 ~PROCESS_RAME_FREE,RO ; ...for device name 
c3 0081 5 SUBL3 #PROCESS"NAME-FREE,-  ; WiLL the device name fit... 
51 $ Re R1 3 .2.i1n the remaining space? 
15 BLEQ =: 108 : BR if it will 
50 1 ce 3 SUBL2 R1,R0 ; Overwrite handle otherwise... 
OOA0'CF Ee & OBA MOVW #MAX_PROC_NAME , PROCESS_NAME ; «and define the maximum Length 
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BF 10$: 
80 at 8F 3 BF d MOVB #*A/_/,(RO)+ 3; Separate handle from device name 
60 OOB7'CF 0098'CF C 4 MOVC3 DEVOSC DEV. NAME , (RO) 3; Concatenate handle with device name 
D4 cB 4 CLRL ; Set the t ae stamp flag 
OOOF'CFE OF a) 44 PUSHAL 1 Sf > NAME ; get the vt name 
2 oD D1 45 PUSHL Push the argument count 
00741039 8F ODD 3 6 PUSHL HUETPS Be Site istsex_ success’; "ese the message code 
Q00000000'GF 04 F Op 4 CALLS #4,G*LTBSSIGNA ; Print the startup messa ge 
0002'CF 08 A E 48 BISW2 #BEGIN_MSGM,FL AG : Set flag so we don't print it again 
OE 49 SSETPRN_S PRCNAM = BROCESS _NAME : Set the process name fo UETDISK O_x 
02. €1 po 51 BBC S*#DEVS$V_TRM,- ; BR if SYSSINPUT is NOT a terminal 
66 O9E4'CF F 38 YSIN FAB+FABSL DEV, 20$ 
OF 5 SGETDVI_S DEVNAM = SYSSTNPUT ; Get the name o 
OF6 554 EFN = #SS_SYNCH_EFN,- ; ...device which may abort test 
OOF6 222 ITMLST = INPOT_ITMCEST,- 
Bye 2$ I0SsB =Q AD_STATU 
45 O14A'CF €E9 O11 55 BLBC QUAD_STATUS,20$ 3 Avoid CTRL/C handler if + | error 
Bite 228 SASSIGN_S DEQNAM = aiety PTR,~ ; Set up for CTRL/C AST handling 
= 
0156 560 $Q10W_S — = TTCHAN nable CTRL/C AST's... 
0128 561 FUN = #10$ SéTMoDE! f0Sm~ CTRLCAST,= 
Bi¢8 266 Py = CCASTHAND 
OOAO'CF ODF 0149 56 PUSHAL PROCESS _NAME ; .---and tell the user... 
DD 014D 564 PUSHL 
00748328 8F DD O14F 565 PUSHL fueres ~ 1 PRE ae success"; 3 «--how to abort gracefully... 
00000000'GF 03 FB 3132 286 208 CALLS #3,G*LTBS$SIG ee 
015C 568 STRNLOG_S LOGNAM = MODE 3; Get the run mode 
015¢ 569 RSLLEN = SUFFER. PTR,- 
015C 570 RSLBUF = FAO BUF 
0014"CF 20 8A 0175 571 BICB2 #LCc ayia. purre ER ; Convert to upper case 
OO14'CF 4F ¥) AEG 208 poe §,a70/ BU FFER : : is this s a one shot? 
O002'CF 10 A 136 574 BISW #ONE_SHOTM,FLAG Set flag. for one-shot mode... 
OB78'CF O01 CA bier 303 25$ BICL #RABSM_ASY, DUMMY por &, ROP ; ...and clear asynchronous flag 
018C 356 $STRNLOG_S LOGNAM = PATTERN,- ; Do we have a specific pattern... 
018C 278 RSLLEN = BUFFER PTR,- ; ...to write to all buffers? 
018C 57 5 ‘ei = FAO_BUF 
1750 €9 O1A5 580 BLBC ; BR if we don't 
O9AO'CF DF O1AB 381 PUSHAL PATTERN DATA > We may... 
OOOC *CF DF 1AC 5 § PUSHAL . FFER_PTR S «es 
00000000 ' GF F 1B CALLS  ESOTSSCVT _T2_L : sacgonvert A ASCII pattern to binary 
05 E 18 4 BLBC e ; BR if there's an error 
0002'CF 20 As aie 283 27$ BISW2 #PATTERNM,FLAG ; Indicate the presence of a pattern 
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1BF B9 ; From UETINIDEV.DAT and UETSUPDEV.DAT, get information which gives controller 
1BF ; and unit configuration and lets us know if the setup to run this test was 
Ho 3 ; Gone correctly. Allocate space for each file on a unit. 
1BF 3 SOPEN FAB = INI_FAB,- : Open file ‘UETINIDEV.DAT" 
1BF 594 ERR = RMS"ERROR 
1CE 95 SCONNECT RAB = INT_RAB,- ; Connect the RAB and FAB 
1CE %6 ERR = RMS-ERROR 
1DD 9 SMGBLSC_S INADR = INADDRESS,- ; Connect to UETSUPDEV global section 
1DD 46-598 RETADR = OUTADDRESS,- 
1pd ©6599 GSDNAM = SUPDEV_GBLSEC.- 
10D 600 FLAGS = #SECSM_EXPREG 
00000978 8F 50 01 ie 601 CMPL RO, #SS$_NOSUCHSEC ; Was the section already there? 
37, 12 «20203—=—C#6 : BNEQ 308 : BR if it was... 
9205 6 SOPEN FAB = SUP_FAB,- 3 «else open ‘UETSUPDEV.DAT"’ 
0205 604 ERR = RMS~ERROR 
0214 605 SCRMPSC_S CHAN = SUP_FAB+FABSL_STV,- ; Create the global section 
0214 6 $ INADR = INADDRESS,- 
0214 6 RETADR = OUTADDRESS,- 
0214 608 GSDNAM = SUPDEV_GBLSEC , - 
8 i e H 30$ FLAGS = #SECSM_EXPREG! SEC$M_GBL 
56 O1SE'CF O1SA'CF (C3 OSze ? 1 SUBL3 OUTADDRESS,OUTADDRESS+4,R6 ; Compute global section Length 
0344 6 ‘ FIND_IT: 
0244 614 $GET RAB = INI_RAB,- ; Get the first record 
0244 615 ERR = RMS_ERROR 
O1ED'CF DF O528 616 PUSHAL CONT_DESC 3; Make sure... 
O1ED'CF ODF Q257 617 PUSHAL CONT_DESC 3 «e-that the controller name... 
00000000'GF 02 FB 8 5B 618 CALLS #2,G*STRSUPCASE S sost8 Gl uppercase letters 
0014'CF 44 8F 91 62 619 CMPB so #*A/D/,, BUFFER : Is this a 0bB? 
gf 13 026 620 BEQL 0$ : Go on if not 
0014'CF 45 BF 91 O26A 621 CMPB #*A/E/ BUFFER : Is this the end of the file? 
D2 12 0270 6 : BNEQ FIND If : Continue on if not 
O98'CF DF 0272 6 PUSHAL DEVDSC ; Push device not supported message 
QOAO'CF DF 0276 624 PUSHAL PROCESS_NAME ; Parameters on the stack 
0 DD O27A 625 PUSHL #2 
00748333 8F OD 5443 626 PUSHL #UETPS$_DENOSU ; 
02 FO 8 82 627 INSV #STSS$K_ERROR ; Set the severity code... 
0 284 628 #STSSV-SEVERITY.- 
6— 0 ogee 629 #STS$S- SEVERITY, (SP) 
0146'"CF 6E DO 87 630 MOVL (SP) ,STATUS 3 ...and save it as the exit status 
4 BD ac 631 PUSHL 
09 1 a ? § BRW ERROR_EXIT : Exit in error 
OOITA'CF O0164°CF 29 91 634 CMPC DEVNAM_LEN,BUFFER+6,DEV_NAME ; Is this the right controller? 
A7 3 98 635 BNEQ N ; no 
OACC'CF OA98'CF 06 2 0 6 § MOVCS #6 INI_RAB+RABS$W_RFA,DDB_RFA ; Save the record file address 
0018'CF 54 8F 91 O2A5 6 CMPB) os #*A/T/ “BUF FER+4 7 Can we test this controller? 
2F 613 «02AB «4638 BEQL OUND_{T : BR if we can... 
O2AD 639 $FAO_S CTRSTR = DEAD_CTRLNAME,- ; ...and yell at user if we can't 
O2AD 640 UTLEN = BUFFER_PTR 
AD 641 OUTBUF = FAO 
AD 6 ¢ P1 = #DEVDSC 
0146'CF 14 C6 6 MOVL #SS$_BADPARAM, STATUS 3; Set return status 
OO0C "CF CB 644 PUSHAL BUFFER_PTR S «ee 
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FOUND_IT: 


10$: 


20$: 
30$: 


zation 878 p 


PUSHL #1 

PUSHL #UETPS_TEXT!STSSK_cRROR 

PUSHL 

BRW ERROR_EXIT 

$GET RAB = INI_RAB,- 
ERR = RMS-ERROR 

PUSHAL CONT_DESC 

PUSHAL CONT~DESC 

CALLS #2,G™STRSUPCASE 

(MPR #*A/U/, BULFER 

BEQL 30S 

CMPB  =s-s #*A/D/ , BUFFER 

BEQL 208 

CMPB ss #*A/E/, BUFFER 

BEQL 208 

PUSHAL ILLEGAL_REC 

PUSHL #1 

PUSHL #UETPS$_TEXT!STSS$K_ERROR 

PUSHL # 

BRW ERROR_EXIT 

BRW ALL_SET 

CMPB es #*A/T/,,BUFFER+4 

BNEQ FOUND_IT 

PUSHL #1 

PUSHL #2 

PUSHAL UNIT_NUMBER 

PUSHAL UNIT™DESC 

CALLS #4,G"OTSSCVT_TI_L 

BLBC $ 

SKPC = #*A/_ /,,#MAX_UNIT_DESIG,- 
BUF FER+6 

DECL 

SKPC  #*A/0/,RO,(R1) 

INCL 

ADDW3 
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: We can't test what we can't test 


Get a record 


Make sure... 
-»ethat this Line.. 

«is all veesre*s* “Letters 
Is this x 


Is this. a DDB? 


if yes 
Is this the end? 
if yes 


Then this is an error in the record 
Push the error message 

Push the signal name 

Push the temp arg count 

Finish for good 


Found DDB or END 
Is the unit testable? 
BR if not 


Flag to ignore blanks when converting 
Set byte size of results 

Set address to pocetue werd 

Push string addres 

Convert ASCII ate *y to decimal 

Don't allow a bogus unit to pass 

3; Find out where unit number really is 


; Units must all be at least one digit 
; Skip caneune zeroes = the unit 

; Compensate fo 

; Calculate device'unit gtr ion is Length 


r DECL above 


MOVZWL DEVNAM_LER,R2- ; Offset to unit number i 
MOVC3 RO, (R1),DEV_NAME(R2) ; Append unit number to device 
SGETDEV_S DEVNAR 2 Beyosc..~ ; Get the device characteristics 
MOVZBL DIBBUF+DIB$B_DEVCLASS,R7 ; Save the device class 
MOVZBL DIBBUF+DIBSB_DEVTYPE,R8 ; “Save the device type 
FAO CTRSTR = CS1,- 
OUTBUF = FAO_BUF,- 
Pl = R7,- 
P = R8 ; Make it into a string 
MATCHC # BUFFER, R6,Q@0UTADDRESS ; Find the device class and type 
BEaL = 40 ; BR if it was 
SFAO_S CTRSTR = CS3,- 3 Try for full class support 
ouTeyt = = FAO. BUF ,~ 
MATCHC #6 BUFFER,R6,@OUTADDRESS ; Find the device class only 
BNEQ 50$ :'BR if not found 
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VO.e000 Test and Device Initialise: on $7 SE -1obe 4:32:65 UETP. SRCIUETD I SKOO MAR: 1 . (8) 
C 702 40S: 
55 OgOF ge 9A 3 if g itt TEST Wane R5 ; Get the test name Length 
O017"CF 6 5 #3 C 4 CMPCS R5_(R3), TEST_NAME+8 ; Are we the right test 
iF cD f 5 ons BEaL «6-46 0$ ‘ : BR if yes 
tH “F- oe <7 3 PUSHAL DEVDSC ; Push device not supported message 
OAO'CF OF D3 £8 PUSHAL PROCESS_NAME ; Parameters on the stack 
2 oD D 7 PUSHL #2 ; Push the argument count 
00748333 8F 0D D9 = 710 PUSHL #UETPS$_DENOSU 
0 FO DF 711 INSV #STSSK_ERROR,- 
0 E1 ar #STSSV-SEVERITY,- 
6— 0 see 71 #STSS$S_SEVERITY, (SP) ; Set the severity code.. 
0146'CF 6— 00 E 714 MOVL (SP), STATUS ; 
04 D QO3E9 715 PUSHL #4 3; Push the parties arg count... 
O7AE 1 paee 18 60s BRW ERROR_EXIT 3 «and split this scene 
00 oD bs 718 PUSHL #0 3; Allocate and initialize... 
C6OB'CF 01 FB O3F 719 CALLS) #1,UNIT_FILE_SETUP + .-.space for file 0 on this unit 
16 0002°CF 04 €0 O3F sy BS WONE_SHOTV,FCAG,70$ ; Omit file 1 if one-shot mode 
50 DD O3FB 721 PUSHL RO ; Save pointer so file 1 can point here 
01 DD O3FD tS¢ PUSHL #1 ; Allocate and initialize... 
O60B'CF 01 FB OQ3FF 7 CALLS #1,UNIT_FILE_SETUP 3; »..space for file 1 on this unit 
51 8EDO 0404 Se POPL R1 3; Have file 0... 
Q1A7 C1 50 DO 0407 725 MOVL RO,DISK_L_OTHER_PTR(R1) ; ...point to file 1... : 
O1A7 CO) 3=—551—séOOO Bot £g8 70$ MOVL R1,DISK_L_OTHER_PTR(RO) ; ...and file 1 point to file 0 
FEC8 31 0411 728 BRW FOUND_IT ; Do the next UCB 


; ...and save it as the exit status 


————————S 
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V 580 Test and Device initialisation etsy te 4:57 LOE TP SRCIUETD I SKOO OMAR; 1 . (9 
414 730; 
414 731 ; Arrive here when we have the device configuration. In normal or loop forever 
414 7 ¢ ; mode, set a timer far enough in the future such that we can do a reasonable 
414 735 ; set of tests before the timer expires, but if our device gets hung, the 
414 734 ; program won't waste too much time before noticing. Let one-shot mode be a 
414 735 ; special case. 
414 7 $ : 
414 737 ALL_SET: 
0190'CF DS 0414 738 TSTL UNIT_LIST ; Anything to test? 
16 12 0418 739 BNEQ $ ; BR if yes 
O12B'CF DF O41A 740 PUSHAL NOUNIT_SELECTED ; Else set up the error message... 
4 DD be e5 741 PUSHL 3 «s-argument count... 
00741132 8F DP 4 re PUSHL MUETPS_TEXT!STSSK_ERROR ; ...signal name... 
03 DD 04 § 74 PUSHL # 3 «+-8Nd parameter count 
O146'CF 14 9 04 744 MOVL #SS$_BADPARAM, STATUS ; Set return status 
076C 1 = 3 oe? 108 BRW ERROR_EXIT ; «-.and give up, complaining 
O002°CF 04 AB 0430 747 BISW2 #SAFE_TO_UPDM,FLAG ; OK, safe to update UETINIDEV.DAT now 
OO9B'CF O164°CF 00 0435 748 MOVL DEVNAM_LEN,DEVDSC ; DEVDSC will describe controller name 
13 0002'CF 04 £0 043C 749 BBS #ONE_SROTV,FLAG,RESTART ; In one-shot mode start testing now... 
0442 750 ; «else fall into TIME_IT 
bees gy 
044 7 ¢ TIME_IT: : 
0442 75 SSETIMR_S DAYTIM = THREEMIN,- ; Set timer AST to 3 minutes 
0442 754 ASTADR = TIME_OUT,- 
0442 755 EFN = #EFN2 
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-SBTTL Test the Disk 
RESTART: 


: At this point the controller designation is in location DEV_NAME pointed to 
: by descriptor DEVDSC. The controller is known to be supported by this test. 


07 0002'CF 0S é1 BBC sent TERwy FLAG,5$ ; BR if we're allowing various patt 
0166'CF  O9AO'CR 0 gg, OWL. «PATTERN, DATA,RANDOM1 : We're forcing a specific pattern 
56 _O1A0'CF DE : MOVAL RANDOM_DATA RS : eau 
57 700000200 BF D og, NOE. MCWRITE_SIZE+39/4,R7 cea eulkibiel oF tenqards...; 
07 0002'CF 0S £0 : BBS #PATTERNV,FLAG,15$ : hich can be either pattern... 
0166'CF O16A'CF C0 15$ ADDL2 RANDOM2, RANDOM{ $ ee pseudo_random... , : 
86 0166'CF 00 "  MOVL_ ss RANDOM1, (R6)+ : ...data... 
EB 57. FS SOBGTR R7,10$ Ese 


For each unit-file node in the queue, clean up any old version of the file we 
want to create and create a new file. The FABs are already set 2 such that 
each file uses PERCENTAGE blocks of, the total space on A disk, the files 


names are controller'unit'x, where is either ‘'0"' or - and the files 
will be accessed in Block 1/0 mode by RMS. In peraet — Léon forever modes, 
the test will proceed asynchronously with the file 1/0. In one-shot mode, 


1/0 will be a single, synchronous write/reada per file, handled separately. 
ADDL3 UNIT_LIST,#UNIT_LIST,R6 ; R6 will point to the current node 


Sete Se Ge Ge Ge Ge Ge Ge 


56 00000190'8F O190°CF (C1 


(ole lelelelelelelelelelelelel el al el el eel ele al ala] =! 
SPRL LPR RPP PPP PRP PPP PPP PPP PPLE 
5009.09 09 09 09 09 09 09 09 09 09 C9 00 NI INIA AAO UNUIMIUIUIUIUTIUT 
OS DO WINWIWIN WWIWWWwood @ & mm ror W@W Mw" 
SNS 
5000 09 09 09 09 09 09 09 09 09 “I INNIS NSP AAA AO 
SOOWONAUE WN 0 OONOAOUSWIR) "CO OONOUES WI" OUOOn 


20$: 
0397 30 BSBW e leftover files from previous run 
OE A6- O01 B0 MOVW Poi Skee ACREATE, UETUNTSW_ bune eres ; Indicate func in case error 
02 88 0494 BISB2 FUETURTSA TESTABL E,- 3; Assume file will be testable and... 
OB A6 0496 VWelby FLA 
0C BA 0498 BICB2 #DIS MCROCREATE® DISK. M -NOEXTEND , = 
0B A6é 049A «791 UETUNTSE FLAGS (R6) ; ..eSCREATE and SEXTEND succeed 
049C 679 SCREATE FAB = UETU NTSK. FAB(R6) ; ed to creste a file on a disk unit 
0488 30 OQ4A7 79 BSBW CREATES CHECK 3; Check for ors, recover from some 
01 €1 Q4AA 794 BBC #UETUNTSV ABLE,- 3 Skip SCONNECT if SCREATE failed 
3D OB A6 O4AC 795 UE TUNT$B VP Aes CRE) *40$ 
O1BE C6 9A O4AF 796 MOVZBL DISK_C_NAM+NAMSB RSL (RO) , - ; Form an ASCID desc to the... 
01B3 C6 0483 797 DISK_Q"F ILEDESC(R6) 
O1BF C6 DO 0486 798 MOVL DISK_C_NAM+NAMS! RSA(R6),- ; ...file spec we actually used 
01B7 C6 04BA 386799 DISK Q gy LEDESCSR CRO) 
Of A6 B4 04BD 320 CLRW UETURTSW (R6) Reset func for error handling 
0120 C6 DO 04C0 801 MOVL §UETUNTSK~ FABSEABSL _ALQ(RA) ,= ; Set current file size 
OlAF C6 bees ane DISK_L_S 
0198 C6 D4 O04C7 80 CLRL UETURTSK RAB*RABSL _BKT(R6) ; Initialize current block 
10 A6 D4 O4CB 804 CLRL JETUNTSL = ITER(R6) : Brest iteration count if loop forever 
57 O6FO'CF ODE th 05 MOVAL WRITE_NEXT,R7 ; Assume normal or loop mode asynch 1/0 
02 0002'°CF 04 £1 O4D 06 #ONE_SHOTV.FLAG, 30$ : BR if that is indeed the case 
57 D4 Repo Bt 30s CLRL R?7 : One-shot mode, no SUC= return 
408 09 SCONNECT RAB = UETUNTSK_RAB(R6),- ; Set up the file's record access 
408 10 ERR = is, ERROR ,- 
408 11 SuC = (R7J 
4EC ¢ 40$: - 
56 66 CO O4EC 1 ADDL2 (R6),R6 ; Loop through all units in the queue 
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00190' 8F 1 O4EF 814 CMPL 6, #UNIT_LIST 
sen . 38 + rhe ie BNEG 58g « 
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P=1984 
: ALL the SCREATEs and SCONNECTs are done. Before we try to hibernate in 
3 normal or loop forever modes, or story 1/0 in one-shot mode, see if any 
; files were started successfully. R6 is still points to UNIf_LIST. 
50s: 
ADDL2 (R6),R6 ; Point to the next possible node 
CMPL R6 ,#UNIT_LIST ; Back at the head of the queue? 
BNEQ ; Check this node if not 
608 BRW TEST_OVER ; Nothing left to test so go home 


BBC #UETUNTSV TESTABLE oe ; Pass to next node if this one... 
UETUNT$B_FLAGS(R6),50$ ; ...isn't testable 
; Otherwise start testing 


BT testente here in normal or loop forever Cent tay modes. 
e units have their files started up. Lif 
when the SSETIMR alarm goes off and wakes us from the fol 
SHIBER_S ; File testing continues via ASTs 
We return when all testing est finis. Clean up any messy files. 
BSBW CLEAN_UP ; This closes and erases files 


Owing... 


BBS #ONE_SHOTV,FLAG,ONE_SHOT_TEST ; Synchronous 1/0 if one-shot mode 


e proceeds y cyte ety 
as write requests are issued and the results are verified. The AST routines 
are responsible for that as well as file expansion. The phn ni terminates 


BRB SUC_ERIT ; Go finish off this pass of the test 
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Get here only in one-shot testing mode. 

ALL testable units have their files started up. We'll do one write/verif | 
pair per file. Since everything is synchronous except error handling, ai 

the code is inline. | 


NE_SHOT_TEST: 
7 KDOL3 


Cee te te te te ee 


58 00000190'8F 0190°CF (C1 UNIT_LIST,#UNIT_LIST,R8 ; This will point to the current node 


SIE 47 
SiE + 
SiE 4 
ap ie 
SIE H 
1E 5 
308 2 10$ 
56 0160 C8 ODE §8 £28 MOVAL UETUNTS$K_RAB(R8),R6 ; Point to the RAB in current node 
01 €1 052D 5 BBC #UETUNTSO_TESTABLE,- 3 Skip node if not testable 
45 0B A8 Be F 28 UETUNT$SB_FLAGS(R8) ,20$ 
A6 01 00 2 5 MOVL #1, RABSL_BKT(R6) ; Pick a record to write 
28 AG O1AO'CF «DE «(0536 ~=— B60 MOVAL RANDOM_DATA,RABSL_RBF(R6) ; Indicate write buffer 
053¢ 61 SWRITE RAB = TR6),- ; Write a record 
53¢ 86¢ ERR = RMS_ERROR 
E1 549 6 BBC #UETUNTSV ir hae ; Skip node if not testable 
29 0B A8 548 864 UETUNTSB_FLAGS(R8) ,20$ 
0800 8F 00 oR ac 34 2c p2ee 865 mMovcS # , (RB) FO, MWRITE_SIZE,DISK_K_BUFFER(R8) ; Clear the read buffer 
055 866 SREAD RAB = (R6),- ; Read a record 
055 4 ERR = RMS_ERROR 
O1A0'CF 0800 8F 29 056 68 CMPC3 #READ SIZE RANDOM_DATA,=- ; Verify a record 
O31C C8 056C 869 DISK_R_BUFFER(RB) 
sane De O81 BP erat ORAS 
0574 ere ; «.-block read (see GET_PATTERN) 
0331 30 p25 oo 208 BSBW VERIFY_ERROR ; Yell out the error 
58 68 CO 0577 875 ADDL2 (R8),R8 3 Loop through all units in the queue 
00000190'8F 58 D1 QS7A 876 CMPL R8 ,#UNIT_LIST ; Back at the head of the queue? 
AS 12 0583 14 BNEQ 10$ ; BR if more nodes to test 
OO0O2*CF 02 AB 0583 879 BISW2 #TEST_OVERM,FLAG ; Indicate a normal test termination 
O20 30 0588 880 BSBwW CLEAN _UP ; Close and erase files 
0588 4= 881 ;BRW SUC_ERIT : Fall into finishing off the test 


CLRL RABSL_BKT(R6) : Indicate random data for Last... 


| 
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B 3 SUC_EXIT: 
0146'CF 3 B 4 TSTL STATUS ; Are we trying to exit? 
6F 1 F 5 BNEQ TEST _OVER_STATUS ; BR if we are 
1 § STRNLOG_S LOGNAM = MODE,- 
91 RSLLEN = BUFFER PTR, - | 
91 8 RSLBUF = FAO BUF ; Get the run mode 
0014'CF g SA SAA 9 BICB2 #LC_BITM, BUFFER ; Convert to upper case 
OO14'CF 4C BF 1 SAF 90 CMPB #*A7L/ BUFFER i Is this a loop fer ever? 
40 12 3285 91 BNEQ TEST_OVER ; BR if not 
QOO2'"CF O02 AA 058 3 BICW2 #TEST_OVERM,FLAG ; Reset the termination flag | 
0172°CF D6 058 9 INCL PASS ; Bump the pass count 
5C 94 SFAO_S CTRSTR = PASS_MSG,- 
5¢ 95 OUTLEN = BUFFER PfR,- 
5¢ 3g OUTBUF = FAO_BUF,- 
BoC g P1 = PASS,- 
5¢ 3 Ps = ITERATION,=- 
05¢ 89 P = #0 ; Make the end of pass message 
OOOC'CF DF O5DD 900 PUSHAL BUFFER_PTR ; Push the string desc. 
DD p2E 901 PUSHL #1 ; Push arg count 
00741133 8F DD OSE3 90 PUSHL  M#UETPS_TEXT!STSSK_INFO ; Push the signal name 
00000000'GF 03 F3 OSE9 90 CALLS #3,G*LIBSSIGNAL ; Print the end of pass message 
016E ‘CF 4 Q5SFO 904 CLRL ITERATIO ; Reset the iteration count 
FE4 1 OSF& 905 BRW TIME_IT ; Do the next pass 
OSF7 690 
O5F7 907 TEST_OVER: 
0146°CF 10000001 BF DO O5SF7 908 VL #SS$_NORMAL!STSSM_INHIB_MSG,STATUS ; Set successful exit status 
0600 909 TEST_OVER_STATUS: 
0600 910 SEXIT_S STATUS ; Exit with the status 


leas 
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-SBTTL Setup Routine for One File on a Unit 


FUNCTIONAL DESCRIPTION: 
; This routine is called to allocate space and do the general 
initialization for the data structure associated with a file on a unit. 


CALLING SEQUENCE: 
PUSH number-of-this-file-on-this-unit 
CALLS #1,UNIT_FILE_SETUP 


Soot Sheen atet h dinal b f th fil i 
e givin e cardinal number of the current e being set on 
the curfent aie (4(AP)). . = 


: IMPLICIT INPUTS: 
: DEVDSC is a descriptor to the current device and unit name in DEV_NAME. 
; DIBBUF i: the result of a S$GETDEV on that device. 


PAE A A AAA AA AA AAA AAO 
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0 UNIT_NUMBER has the current unit number. 
0 UNIT_LIST is the queue header to which a new node will be added. 
0 DUMMY_FAB and DUMMY_RAB are adjacent and contain templates of a FAB and 
8 a RAB, respectively. 
0 ; OUTPUT PARAMETERS: 
Be RO will have the address of the node just created. 
06 IMPLICIT OUTPUTS: 
Be : A new node will be added to the queue headed by UNIT_LIST. 
06 ; COMPLETION CODES: 
6 : NONE 
06 ; SIDE EFFECTS: 
06 944 The space just allocated will be initialized. 
06 945 ; 
6 238 i-- 
6 947 UNIT_FILE_SETUP: 
OFFC 3608 308 -QORD “M<R2,R3,R4,R5,R6,R7,R8,R9,RI0,R11> ; Entry mask 
060D 950 SEXPREG_S PAGCNT = #PAGES,- ; Get a new node of demand zero memory 
9600 951 TADR = NEW_NODE 
5D orf 328 INSQTI @NEW_NODE ,UNIT_LIST ; Put the new node in the unit List 
DO 06 95 MOV NEW NODE ,R6 ; Save a copy of its address 
90 062A 954 MOVE #1,0ETUNTSB_TYPE(R6) : Set the structure type 
B0 955 MOVW #UETUNTSC 1NDS12+DEVDEP_SIZE .~ 
6 328 UETUNTSW_SIZE(R6) 3; Set the structure size 
28 06 }) 3 #FABSC_BCN+RABSC_BLN,- 
638 958 DUMMY FAB,UETUNTSC FAB(R6) ; Save a FAB and a RAB away 
DE 06 95 MOVAL UETUNTSK_FAB(R6) ,R7 : Save the FAB address 
D 4 960 MOVAL UETUNTSK th el ; Save the RAB address 
D 64 961 MOVL R7,RABSL_FAB(RB) ; Set the FAB address in the RAB 
DE 64¢ 96¢ MOVAL DISK_K_BOFFER(R6) .RABSL_UBF(R8) ; Set read buffer address... 
DE 065 96 MOVAL DISK_K_BUFFER(R6),RABSL_RBF(R8) ; ...and write buffer address 
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3; Note that MOV 
ADDB3 
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SE 
a Unit -SEP 5) 
#NAMSC_BLN,DUMMY_NAM,- ; Set up a NAM block... 
DISK CANARIR } RMS k l hich fil 
~ * 56280 nows exactly whic Boos 
UETURTSC_FAB+FABSL_NAM(RO) ’ 
DISK_T_NAMFILSPC(RB),- ; ...to delete when cleaning up... 
DISK C_NAM+NAMSL RSACR6): «ein case multiple tests are running 
step pct eee MAXBLOCK,RO ; Use the total space on the disk... 
#TOP_PCT,RO,R19 i ++-to get the max we'll u 
ap REENTAGE JR “and how queh oech File 12 extended 
R1 oe sop PCT(R6) : Store the max space for the unit... 
Rg. Att th “ACQCR?) i «eeand the original file size 
y vast a SPC(R6), FABSL_ FNA(R7); Set addr of filspec 
-DEVDS : “Device names are device'unit': 


NOTE: YMS guarantees Length is OK 
; Make file names as device’unit'x,... 
ROT aE N_LEN -.-Up to a@ maximum Length 


#FN_LEN,R10 2 Otherwise force length to be OK 


#*A/0/,4(AP),R11 m final filename char (file number) 
DEVDSC.DEV_NAME ,#*A/:/, Rd, CeTUNTST _FILSPC(R6) ; Store device... 


DEVDSC,,DEV_NAME,R11,R10,(R3) ; ... filename... 


pet tet RO 
0,D0TTST+1 ,(R3) -y.and extension 

ey ve TEST_DIRi1,FABSL_ anh € : Set up typical default directory 
Cx thinks length is a word but RMS thinks it's a byte. 

R9,R10,F ABSB_FNS(R7) ; Store the file name string length... 

DOTTST FABSB-FNS(R7) - ...(dev:file.ext 

SYSTEST DIR, FAB$B_DNS(R7) ; ;Store typical te + _Sirectery Length 

NIT_NUMBER,DISK_@ UNIT(R6S ; Save t ‘ unit number... 

4(APT,DISK 6 FILE(R6)  ; ...and the file number on this unit 

#UETUNTSM TESTABLE. 3; Assume file will be testable 

UETUNT$B_FLAGS(R6) 

R6,RO ; Return node address as function value 
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: ! § ee -SBTTL Successful SREAD AST Routine 
FO 1 : : FUNCTIONAL DESCRIPTION: 
FO (1 : his routine will receive the AST when a SREAD operation finishes for 
6FO 1 19 3 a file on a unit. It verifies that the data read were correct and 
FQ 1011 ; starts up the next SWRITE. In situations detailed below, it will try 
oF : \¢ : to extend the file. 
6FO 1014 : CALLING SEQUENCE: 
or ! 1? : Called via AST at 1/0 completion for all files on all units. 
6FO 1 9 : INPUT PARAMETERS: 
oF ! 8 : 4(AP) is RAB address 
O6F 19 0 : IMPLICIT INPUTS: 
O6FO 1021; ALL FABs and RABs. 
O6FO 10 § 3 An AST orquseat List with the ASTPRM value equal to the address of the 
pore 8 ? ; associated RAB. 
aero 1025 : OUTPUT PARAMETERS: 
OerO 1099 —_ 
06FO 1028 : IMPLICIT OUTPUTS: 
O6FO 1029 ; Fields may be modified in FABs and RABs. 
O6FO 1030 ; If a file is being processed correctly and the test has not terminated, 
O6FO 1031 ; a new block of the file is written. 
se 1938 ; A file may be extended. 
06FO 1034 : COMPLETION CODES: 
ber 1086 : we 
06F0 1039 : SIDE EFFECTS: 
bere 1938 : Other fields in the node associated with this file may be modified. 
06FO 1040 WRITE_NEXT: 
OFFC s¢ Wey » WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,RIO,RI1> = Entry mask 
6D O9AS'CF DE O6F 1943 MOVAL SSERROR,(FP) 3; Declare exception handler 
56 4 AC 00 O6F 1044 MOVL 4(AP),R ; Get the address of our RAB... 
57 C A6§ «6=DO 6(06FB) O1045 MOVL RABSL_FAB(R6) ,R7 3 .--and its associated FAB 
58 FEAO C6 DE O6FF 1046 MOVAL -UETUNTSK_RAB(R6) ,R8 ; Set up a node pointer 
0704 1047 ; These registers remain constant... 
0704 1048 ; «throughout this routine 
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Verify that the data read back were those that were written out. GET_PATTERN 
below explains how we figure that out. Block 0 is an exception, however. To 
RMS, block 0 would imply ‘write (or read) the next block of the file.*’ We 
therefore avoid its use in choosing a next block and additionally reserve 

it to mean that the test has Just started and there is no data to verify. 


38 ag dS TSTL RABSL_BKT(R6) : If the last block accessed was 0... 
9 1¢ BNEQ 10$ B ces 
0079 3 108 BRWw DO_THE_WRITE 3 «..then we have nothing to verify; BR 
06 ai) 83 3 : BBS #PATTERNV,FLAG,15$ ; BR if we're fore tng a pattern 
A6 0 D BITL #3 RABSL_BKT (RO) ; Determine which pattern was used last 
0B 12 158 BNEQ 20$ ; BR if any bits are set 
28 B6 OIA0'CF 0800 BF 29 CMPC3 M#READ_SIZE,RANDOM_DATA,@RABSL_RBF(R6) ; Either “B00 or pattern 
Oc 11 208 BRB 30$ 3; Rejoin common code 
OoBF 30 "  BSBW GET PATTERN : FILL_R9 with the pattern to verify 
28 B6 40800 BF 59 66 00 2 sos CMPCS #0,TR6),R9,#READ_SIZE,@RABSL_RBF(R6) ; Verify the buffer 
06 13 "  BEQL «= CHECK_ EXTEND ; BR if the strings were the same 
0174 30 BSBW VERIFY_ERROR ; Yell if strings differed (bad news) 
04 RET ; No more 1/0 to this file 


3; The data are verified. See if it's time to try to extend the file. File 

3 extension is meant to test software as much as anything else. We will 

3; attempt it if there is no flag contraindicating it for this file, we've done 
3 a positive multiple of BAKERS SWRITEs to the file and the total space across 
; all files on this unit doesn't exceed the value in DISK_L_TOP_PCT. 

: Most of the errors we will get from SEXTEND will be caused by exceeding disk 
3 quota or filling up a pack. ERROR has code to ignore these two and we 

3 must compensate here when FABSL_ALQ is cleared by an SEXTEND failure. 

¢ 


HECK_EXTEND: 
BBS 
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03 #DISK_V_NOEXTEND,- ; BR if flag says don't try to extend 
4B 0B AB UETUNT$SB_FLAGS(R8) ,DO_THE_WRITE 
59 10 A8 OD MOVL UETUNTSL_ITER(R8) ,RO ; See if we've done... 
as 6} BEQL DO_THE_WRITE 3 «+8 positive... 
5A D4 CLRL R 3 «ee (EDIV wants quadword divisor) 
nn Wm WR 78 EDIV #BAKERS,RO,RI,RI 3 .--multiple of BAKERS... 
59 ~=~D5 TSTL 9 3; ...writes to this file 
3A soil BNEQ DO_THE_WRITE ; BR if there's a remainder 
59 giay cg dO 4 OVL DISK_L-OTHER_PTR(R8),RO ; Calculate... 
TAF C C1 5 ADDL3 DISK L-SIZE(R9),- 3 «eethe total space we're using... 
59 O1AF g8 5 DISK_L_SIZE(R8) RY 3 «0M this unit 
O1AB C8 9 D1 5 CMPL R9,DISR_L TOP_PCT(R8) ; Have we used as much as we should? 
26~—= «i118 5 BGEQ DO_THE_ORITE ; BR if we've reached maximum space 
5 SEXTEND FAB = TR7),- ; We're OK, try to expand the file 
5 ERR = RMS ERROR 
O1AF C8 10 A7 8 § ADDL2 FABSL_ALQTR7) ,DISK_L_SIZE(R8) ; Compute new current size 
10 50 ‘ BLBS DO-THE_ WRITE ; BR if we're O 
08 8 7 BISB2 #D{Sk~M NOEXTEND,- ; Prevent further attempts to extend 
0B A8 7 UETUNTSB_FLAGS (RS) 
59 10 A8 14 (C7 ? DIVL #BAKERS ,OETUNTSL_ITER(R8),R9 ; Number writes/writes-per-extend... 
10 A? «=~OI1AF CB 559s C7 7 DIVL R »DISK.L_SIZE(R8) ,FABSL_ALQ(R7) ; «divides file size giving exten 


_ OOOO ee eee 


vee 


01 0002°CF 01 


0166"CF  O16A'CF 
59 0166'CF 80000000 ef 

59 59 59 O1AF c8 

38 A659 

E0 

06 0002'CF 05 

38 A603 

0B 

0800 8F 

28 B6  O1A0' CF 

0c 

001F 

28 B6 0800 8F 59 66 00 
10 As 


59 38 AG «692 ~—CO00 


59 55 BF 
04 59 
59 = AA BF 
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Successful 


4 

co c 
a 0798 
be 790 
B oF 
D A6é 
7AA 
7AC 
7AC 
O7AC 
EQ OPAC 
sg Hs 
12 0786 
0788 
28 0788 
07BC 

11 07C1 
07¢3 
30 07C3 
2c 07C6 
O7CF 

D6 O7CF 
07D2 
07D2 
07D2 
04 OQ7E4 
O7E5 
O7E5 
O7E5 
O7E5 
Q7E5 
O7E5 
O7E5 
Q7E5 
O7E5 
O7E5 
Ores 

7E 
Bree 
+3 7E5 
1 7B 
90 O7ED 
05 Q7F1 

7F 

E8 O7F 

90 O7F 
7F9 
05 O7F9 


ISK EXERCISER 


SK 
AST Routine “SE 


5 


mo 
ogo 


A 


bO_THE WRITE: 
BBC 


10$: 


: be written. 


BBS #PATTERNV, FLAG, 15$ 
BITL  #3,RABSL_BKT(R6) 


BNEQ 208 
15$: 
MOVC3 #WRITE ate 
RANDOM, DATA 
BRB 30$ 
20$: 
BSBW GET_PATTERN 
MOVCS 
30$: 
INCL 7 aed ITER(R8) 
SWRITE coc a4TAP),- 
ERR = RMS ERROR, = 
SUC = READ_NEX 
RET 


Subroutine to fill the low order byt 
and 1 of the block number (presumabl 


be used if the bit pattern is “B00 o 


GET_PATTERN: 
EXTV 


me a ed od oe 8 ts = = = 8 8 8 = 2 SS  — — 2 = SS SS SS 
ee me ee ee ee em em ee ee ee ed ed ed dd od od = od = = 3 3 xz— 
AOU ES BB EBB BWW NAAN OPOPIPIPOPNIN OOOO 
QOD NAMN EWR ODWONAUL WN OO DNAU EWN OC OONAUEWN OOO NAULUIN—O0OON 


32:67 Parcyne Macro V04- 
7:24:57 (CUETP.SRCJUET ois oF Caan: 1 
: Get the next block number to write. 


#TEST_OVERV,FLAG, 108 


; We have the block number to write next; 


@RABSL _RBF (RO) 


#0,TR6) RO, MWRITE_SIZE, akabse _RBF (R6) 


be carried throughout the buffer on ; SWRITE and ree oon to verif 


the data were written out and read in 
cases the contents of the RANDOM_ DATA 


XT #0, #2,RABSL_BKT(R6) RO 
BLSS 1 
MOVB  #°B01010101,R9 
RSB 
10$: 
BLBS  k9,20$ 
MOVB  #*810101010,R9 
20$: 
RSB 


Pane ib 


; BR if the test is osttt going 
; Finished. Dismiss 


sth RANDO one aR OM1 : Generate a ‘'random'’ number 
BICL #*x800 6600. CANDOM1, R9 ; From it get a new block number,... 
CLRL R10 3 eee (EDIV wants quadword dividend) 
EDIV DISK_L_SIZE(R8),RO,RO,RO ; ...modulus the file size,... 
MOVL 9, RABSL_BKT(R6S ;'...for next $WRIT 

; But don't allow 0 as a block number! 
BEQL 108 But don't allow 0 block number! 


now we must determine what data will 


; BR if we've forced pattern data 
petereres which pattern to write next 
R if any bits are set 
Either random or forced pattern 
; Go write the block 


LL RY with the pattern to write 
; Buffer gets pattern data 


; Count this file's writes 
; Write another block to current file 


3; Dismiss the AST 


e of RO with ~ Aa 2 getters of bits 


0 
The eg kage will 
that 


y random) in R 


correctly. This subroutine will not 
r if the flag PATTERNM is set; in those 
buffer will be used. 


; Get 4} anseutended bit pettorn 
; BR i B10 patt 
; Ailey a propagate the bit pattern 


BR if “B11 pattern (RO will have -1) 
Prepare to propagate the bit pattern 


U 


64-000” Successful. SURITE 


<< 
al 
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me 
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0 Pa 9 UE 
outine -SEP-19 ETP.SRC SE SDT SROO OMAR: 1 - (99) v0 
-SBTTL Successful SWRITE AST Routine 


+ 
FUNCTIONAL DESCRIPTION: 
his routine will receive the AST when a SWRITE operation finishes for 
: tite on a unit. It starts up a SREAD operation and dismisses the 


—“ 
nn 
> 


CALLING SEQUENCE: 
Called via AST at 1/0 completion for any file on any unit. 


INPUT PARAMETERS: 
4(AP) is RAB address 


IMPLIC!T INPUTS: 


ALL RABs (and FABs, implicitly). 
An AST argument List with the ASTPRM value equal to the address of the 
associated RAB. 
OUTPUT PAR/METERS: 
NONE 
IMPLICIT OUTPUTS: 
Fields may be modified in RABs. 


If a file is eeing pregenene correctly and the test has not terminated, 
the block of the file just written is read back in as verification. 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
NONE 


READ_NEXT: 
.WORD “M<R2,R3,R4,R5,R6,R7,RB,RI,RI0,R11> ; Entry mask 


MOVAL SSERROR, (FP) 3; Declare gucept ton handler 
BB WTEST_OVERV,FLAG,10$  ; Stop ASAP if test is over 
AP),R ; Get the address of our RAB 
#0, (R6) ,#0,MWRITE_SIZE,@RABSL_RBF(R6) ; Clear the read buffer 
SREAD RAB = a4(AP),- : Read back the block just written 
ERR = RMS_ERROR,- 
SUC = WRITE_NEXT 


RET ; Dismiss the AST 


6D  O9A5S'CF ODE 
1F O0O2°CF O01 €0 
04 AC OD 


28 B6 «0800 8F 00 66 00 2 


SRS cna say toe dos Deepens toe ee atte tas oo aston eee ste ances eee 
AALLSON OOP PPP YrrPrrrrrrrrrrrr Yr rr Yrrrrrrrrr rrr rr 


10$: 


ka a a a kk a a dd od 
SOOOOOOOOO OOOO OOOO O00 0900 69 09 C909 C9 C909 SININSI SII NNIO OOOO DU 
DNAULS WN O OOO NAUE WIN O OOO NAME WIN OOO NOUS WN OUODNOULEW 


Oooo 
600009090909 0909 SISI NINN SNS 
POPOPONONONOPONUAY) 2 2 2 


COOOCOCOCOCGOOOSOOOOCOOOOCOSCOOCOOOCOOCOCOCOOOOCOoOoOO 
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V °b00 Left Over le Cleanup ieortas ets 7 8338 257 (CUETP.SRC GETDYSKOO OMAR: 1 “ (38) v6 
4 4 ! 19 bE -SBTTL Left Over File Cleanup Routine 
re 12 ; FUNCTIONAL DESCRIPTION: 
¢ 1215 ;: If there are files left over from a previous run of fhe disk test (as 
0827 1214; would happen, for example, if the system crashed during a run), this 
88 ¢ 1215 : routine will clean up the highest version of the file we're about to 
827 1216; create. This is preferred over a supersede operation because supersede 
0827 1217; will not delete the old file's space until after the new file is 
8 f } 18 5 created. 
0827 1220 ; CALLING SEQUENCE: 
8 f ! 13 BSBW PRE_CLEAN 
0827 1 5 3 INPUT PARAMETERS: 
0827 1224 ; NONE oe 
0827 1225 ; 
0827 1226 ; IMPLICIT INPUTS: 
OB 4 ! 56 3 Current FAB, pointed to as UETUNTSK_FAB(R6). 
0827 i$ 9 ; OUTPUT PARAMETERS: 
0827 1230 : NONE 
0827 1231; 
0827 1 3 3; IMPLICIT OUTPUTS: 
0827 1233; NONE 
0827 1234 ; 
Bass 1235 ; COMPLETION CODES: 
827 1236 ; NONE 
0827 1237; 
0827 1238 ; SIDE EFFECTS: 
0827 1623 3 File may be deleted. Note that we do not check for any errors. An 
0827 1240 ; error from the SERASE eer be expected in situations where this test 
0827 1241 ; is run in parallel with itself, on a given disk (e.g., from separate 
0827 1 4g ; nodes in a cluster to an MSCP disk). 
0827 1243; RO is trashed. 
0827 1244 ; 
0827 1245 ;-- 
0827 1246 
bas) 1247 PRE_CLEAN: 
O7FE 8F 6B 0827 1248 PUSHR = #*M<R1,R2,R3,R4,R5,R6,R7,R8B,RI,R10> ; We clobber nothing here... 
SA. 5E =00 0828 1249 MOVL P,R1 3 «-.including our stack! 
57. 0110 C6_—séOE OBE 1230 MOVAL UETUNTSK_FAB(R6) ,R7 ; Use R? for more visible access 
58 01A7 9A 08 1251 MOVZBL FABS$B_BLA(R7) ,R8 ; Again, we clobber nothing... 
— 2 € Gy .% 26 SUBL »SP ; ..-S0 we'll do our RMS access... 
ec er 3 2 th 125 MOVC R8,(R7), (SP) 3; ...using a FAB on the stack 
59 SE 00 E 1254 MOVL SP,R9 ; Save a pointer to our new FAB 
0841 1255 SOPEN FAB = R9 ; See if old version of file is there 
1250 €E€9 Q84A 1 2$ BLBC RO,10$ ; We can do nothing if any error 
084D 125 SCLOSE FAB = RO ; We found one... 
$28 ' 28 108 SERASE FAB = R9 3; «-.get rid of it 
5E 5A 00 Hh 1260 MOVL R10,SP ; Restore our stack... ; 
O7FE 8F BA 862 1261 POPR #*M<R1,R2,R3,R4,R5,R6,R7,R8,R9,RIO> ; ...and all our registers 
5 0866 1262 RSB 
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teats File Cleanup Routine mies 8135 :57 (CUETP.SRC CEO SE OD MAR: 1 . al) 
$f ] : ae -SBTTL File Cleanup Routine 
of 1 66 + FUNCTIONAL DESCRIPTION: 
of ! t : This routine will clean up the files used for the test. 
0867 1 69 > CALLING SEQUENCE: 
4a 1 oy : BSBW CLEAN_UP 
0867 1 ee + INPUT PARAMETERS: 
ORE? 159% — 
0867 1275 : IMPLICIT INPUTS: 
bees } 6 3 ALL FABs. UNIT_LIST points to a queue with unit-file nodes. 
0867 1278 : OUTPUT PARAMETERS: 
Bree 
0867 1281 : IMPLICIT OUTPUTS: 
ORG? 1988 | a 
0867 1284 > COMPLETION CODES: 
Bt ial foe 
0867 1287 ; SIDE EFFECTS: 
0867 1288 ; Files are closed, deleted and erased. All registers may be trash. 
0867 1983 : 
Ope? 1991 
0867 129¢ CLEAN_UP: ; 
56 O190°CF ODE tre 1997 108: MOVAL UNIT_LIST,R6 ; This will point to the current unit 
56 66 «60 «(086C 1598 " — ADDL2—s (RO) , RO ; Loop through all nodes 
00000190'8F 56 D1 O86F 1536 CMPL R6,#UNIT_LIST ; Back at the head of the queue yet? 
oF 13 0876 1297 BEQL 408 : BR if we've finished 
02 EO oBe8 +44 BBS #DISK_V_NOCREATE,- ; Don't try SCLOSE if SCREATE failed 
EF OB A6 087A 1300 UETUNTSB_FLAGS(R6) , 10$ 
58 0110 C6 DE 0870 1301 a MOVAL UETUNTSK~FAB(R6) ,R8 : Get FAB address 
nt 1308 ; $SWAIT RAB = UETUNTSK_RAB(R6) ; Twiddle thumbs until 1/0 completes 
088D 1304 $CLOSE FAB = ( ; Try to close the file 
O16E'CF 10 A6 CO 0896 1305 ADDL2 UETUNTSL_ITER(R6), ITERATION ; Count total 1/0 for test 
089c 1 $ SERASE FAB = (RB) ; File closed, remove directory entry 
C5 11 Baas ! S 40s BRB 10$ 
05 O8A7 1309 : RSB 3 We're all cleaned up 


} 
a | 
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Bum Data Routine “SEP-19 UETP.SRC 
-SBTTL Bum Data Routine 
A FUNCTIONAL DESCRIPTION: 
a Print an error message if we get a mismatch during data verification. 
8A CALLING SEQUENCE: 
OBA CMPCx ...@RABSL_RBF (RG) 
O8A data-was-good 


| 
} 
| 
BEQL | 
BSBW = VERIF Y_ERROR | 
INPUT PARAMETERS: 
NONE 
| 
i 
| 


IMPLICIT INPUTS: 
R1 points to the good data if we just read random data or forced 
ype data, never-never land if we read generated pattern data. 
3 points to the gi teneine byte of differing data. 
R6 points to the RAB for the bad file. 
R8 points to the unit data block. 
RO will have the pattern if we matched generated pattern data. 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: | 
Message to SYSS$OUTPUT and SYSSERROR. | 
Registers R2-R8 and R10-R11 returned unscathed. 

COMPLETION CODES: | 
NONE 


SIDE EFFECTS: 
NONE 


Sete te Ge Ge Ge Be Ge Ge Ge Ge Se Ge Ge Se Ge Ge Ge Ge Ge Se Ge Fe Gs Ge Se Ss Ge Fee Ge Ge Sete 


‘GO 00 CD OS G9 09 CD CD Cd CO 09 OD OD CD GD CO CD CD CD CO Cd C0 OD CD CD CD COGN CD CD 


WW > HM SOMO AHNS Pw FE &fOMM 09000090900 09 G9 00 00 09 09 09 09 00 00 C0 C0 CN CO CO OD CD 


VERIFY ERROR: 


me ee a ek ed 8 dd ad od dd 3 3 8 3d td 3 


COOOOOCOOOCOOCOOCOOSGOOCOCOOCOOOOOOOOOOCOOCOCOOCOOCOOOOCOOOOoOOoOO 


06 0002'CF O05 £0 BS #PATTERNV,FLAG,5$ ; BR if we used forced pattern data 
38 A6 «0O03—Ss«é3 4 BITL  #3,RABSL_BKT(R6) : Did we have random data? 
03 12 Mn ; $$ BNEQ 10$ ; BR if we used generated pattern data 
59 61 90 = : 108 MOVB (R1),R9 : Copy the byte where failure was found 
7E $3 9A Ha 5 MOVZBL (R3),-(SP) ; Save the bad... 
7E 9 OA 5 ite R9,- 3 «e-the good... 
53 28 A6 C3 O08BD 135 SUBL3 RABSL_RBF(R6),R3,-(SP) ; ...the place... 
183 (8 Ss 7F aC 5 PUSHAQ DISK _@ FILEDESC(R8) : t..the file spec... 
000F 006 of DD C : PUSHL #*X we 
0074801A 8F ODD i‘ PUSHL #UETP DATADEVERR! STS$K_ERROR 3 ...and the ugly info 
162°CF D6 D 6 INCL ERROR_COUNT ; Keep a running error count 
142°CF 0D D 6 PUSHL ERROR COUNT * ees 
AO'CF OF D 6 PUSHAL oeciS NAME S bee | 
0001 F DD D 6 PUSHL #*xi ; eee | 
074 F DD E 6 PUSHL rots ERBOXPROC!STSS$K_ERROR ; Have error stand out in log file | 
00000000 ' GF A fB E 6 CALL #1 Gries ; Let the user know what happened 
ren e 8A : ? BICB #UE fUNTSM ndicate that this file is no good 


TESTABLE,-  —s ;_-I 
UE TUNT$B_FLAGS~UETUNTS$K_RAB(R6) | 


De $k00 


0000 
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31 O8F6 1368 BRW 
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SEP=19 
SEP=19 
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4 
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; Exit via possible additional message 
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a -SBTTL Check if We've Stopped Testing a Unit 

: FUNCTICNAL DESCRIPTION: 

In normal and loop forever modes, we warn the user that a device is 
seen to be totally untestable (at least during this pass). 


CALLING SEQUENCE: 
BSBW  DESTP_CHECK 


INPUT PARAMETERS: 
NONE 


row Os, 


IMPLICIT INPUTS: 
R8 points to the unit data block 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
Possible error message if all files for this unit are marked as 
untestable. 


DESTP_CHECK: 
PUSHL 


COOCCCOCOOCOCOCOCOOCSOOOOOOOCOOOSOOOOCOOCOC OOOO OOOCOOOOOOOOOOOOO 


OOOO OO0O0O0O000 0000 OO 0000 GW 0D 09 C0 Cd GD CD CD CD OD Cd C9 C9. C0 CD CD C9 CD C9 CD CD'0D C0 CO CD CD CD CD CD ODD 


AAI 9 3 3 3 BS QQQ OOO DF 0 FFF ee ee ee ee ee 0 oe ee ee on oe 
Pe DS SNM S VWI MOD SF DW OOOO OVOOOVOOVOVOVOOVOOOOVOOVOOOOVOVOOOOVOWOO 


PRE RRP RRR EE LEE EEE PWIA AAA N AANA 
—— 3 AOOODOOOOOO 000000000 0000000000000 09 090909 INI NNNIN 
WONAVE WINS ODNAAE WINS OONAU EWN 0 OD NOAU EWN OO OONOULSWN HO 


tt a es A = = — 9 2 ss bs 4 — 9 1s — 2s 1) 2 3s 2 ts ts 1s 2 ts ss a a 


56 DD R6 ; We'll affect no registers herein 
30 0002'CF 04 €0 BBS #ONE_SHOTV,FLAG,20$ ; This is meaningless in one-shot mode 
6 58 00 ios MOVL R8,RE ; Set up a working pointer to node 
01 #€0 BBS #UETUNTSV_TESTABLE,- : If this file is still good... 
28 OB A6 UETUNTSB_FLAGS(R6),20$ ; ...then we need no message 
56 QuA7 C6 00 MOVL DISK _L_OTHER_PTR(R6),R6 : Point to next node for this unit 
8 56 01 CMPL R6,R8 : Back where we started? 
a NEQ 10$ ; BR if not - check this one, too 
08 D PUSHL #0 3; None testable - we need message 
7E O1AG6 C C MOVZWL DISK_W_UNIT(R8),-(SP)  ; Unit number 
0098'CF OF PUSHAL V ; Controller 
OOAO'CF ODF PUSHAL PROCESS_NAME ; Image name 
04 OD PUSHL #4 
007481A2 8F DD PUSHL M#UETPS$_DESTP!STSSK_ERROR 
00000000'GF 06 FB 208 CALLS #6,G*LTBSSIGNAL 
56 8EDO POPL R6 
RSB 


a 
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SCREATE-Specific Error Checker “SEP-1984 tba: $2 Hf UETP.SRC SETDYSKOD. MAR; 1 . ay 
| 1% 1 -SBTTL SCREATE=Specific Error Checker 
9 14 git 3 FUNCTIONAL DESCRIPTION: 
9 1426 ; This routine handles error heap iro SCREATEs of test files. It 
9 1425 ; ioe us to first try sreyeree a file in device:tSvSTEst » and then 
9 14 § 3 for i henge packs with wont Hg zesen dir oven erarchies, to try 
9 1427 ; sreet the file in device: Sy80 «SYSTEST is means we can test 
9 14 8 3 packs, whether mounted as s stem geese or not. The routine also 
9 1429 ; sttope us to recover from most RMS$_FUL errors by trying to allocate 
2 1? ? 3 a file that is only 1% of the total” space on a pack. 
9 2 14 § 3; CALLING SEQUENCE: 
3 1 7 : BSBW CREATE_CHECK 
09 ; 1435 ; INPUT PARAMETERS: 
09 14 § 3 NONE 
09 : 1437 ; 
4 14 8 ; IMPLICIT INPUTS: 
0935 1439 ; points to our unit data block for this file on this device. 
bate 1277 3 The FAB associated with the RMS S$CREATE as UETUNTSK_FAB(R6). 
0935 ots ; OUTPUT PARAMETERS: 
0935 1445 ; NONE 
0935 1444 ; 
0935 1445 ; IMPLICIT OUTPUTS: 
0935 1446 ; Error message 
0935 1447 ; 
0935 1448 ; COMPLETION CODES: 
0935 1449 ; NONE 
0935 1450 ; 
0935 1451 ; SIDE EFFECTS: 
0935 1436 ; If the error can be corrected by cotrytng, with a different Sirectery: 
0935 14535; the test file will be created. le can be created with 
0935 1454 ; smaller allocation, it will be. Otherwise, _ program may phe 
0935 1455 ; copending on severity of the error. If the program does not exit 
0935 1456 ; and the file is not created, DISK_M NOCREATE is set in UETUNTSB FLAGS 
0935 1457 ; by the RMS error handler. RO and-R2 are trashed. 
0935 1458 ; 
0935 1459 ;-- 
0935 1460 
baat 1461 CREATE_CHECK: 
59 50 E€8 09 1486 BLBS RO,3 ; BR if there was no error 
52. 0110 C6 DE 0938 146 MOVAL OP ONTsK FAB(R6) ,R2 : Point to our FAB for convenience 
08 A2 eenagedl | 0} 345 1388 eg Hans DNF ,FABSL _$TS(R2) 5 pid ye ge get directory not found error? 
0253'CF 96 94 1608 MOVB 5150 systesi gPiRe~ : Yes, try ie again... 
3? Ae 94B 146 FABSB_D 
0254°CF DE 094D 1468 MOVAL SYS gyetese. DIR+1,- $ sacl ing. . 
30 A2 951 1497 FABSC_DNA(R2) E aset systen directory hierarchies 
FED1 30 0953 1470 : : Try again to clean up old file 
956 1471 SCREATE FAB = (R2) ; iy again to create new file 
2F 50 €8 OQ95F 1478 ° 3 if we got it this time 
962 147 
962 1474 10$: . 
50 00000000'8F D1 0962 1475 CMPL #RMSS_FUL,RO ; Did we fail because file was too big? 
1F ig 96 1008 BNEQ ; BR if not 
50 CCCO3E4C BF 000043C8 BF 4 96B 147 MULF3 #*F100.0,#PERCENTAGE,RO ; Try to get... 
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tee tts SCREATE-Specific Error Checker g- 3 r) 3b2 gh: $f: ry UETP.SRCJUVETDISKOO.MAR;1 . (38) 
5 4A 0977 147 CvTF RO,RO 3 
10 3 28 C6 Q97A 1258 DIVL RO” FABSL ALQ(R2) 5 1.1% of this unit's space. 
97E 1480 $CREATE FAB = (R2) : ..eand try again for the file 
07 50 =—«EB + Hf 1483 BLBS RO,30 : BR if we got the file 
98A 1485 208: 
52 DD a38h i PUSHL R2 $ exe don't know which error we got.. 
OABB'CF O01 FB QO98C 1485 CALLS #1,RMS_ERROR i «.-S0 let real routine handle it 
991 1o56 30$: 
05 0991 148 R°B 
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~SBTTL Timer Expiration Routine 


+ 
FUNCTIONAL DESCRIPTION: 
This routine will signal the end of the test when we time out. 


CALLING provers: 
Called via AST at SSETIMR expiration. 


INPUT PARAMETERS: 
NONE 

IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 
Sets a flag to indicate timer expiration. 


SIDE EFFECTS: 
The TEST_OVER flag is set in FLAG. This will tell the AST Level 
routines to not schedule any further I/0. 
The program is aWAKEned from its HIBERnating state. 


WOOODOOOOOOOOOVOOOOVOOOOOOOOOO 
ODOODOOOOOOOOOOOOOOOOOOOOOOOO 


polelejelelelelelelelelo! 


a a tk td od = 6d = = = 


RRPPNIN 3 BQO OOOO OO0000000000000 


MEW *§ SO OONOUS WIN 0 ODNOAOUE WIN O ODIO UE W000 


843 Note that no cleanup is done here. 
099 -- 
099 
099 TIME_OUT: 
OFFC $45, «WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> ; Entry mask 
0002'CF 02 AB 0994 BISW2 #TEST_OVERM,FLAG ; Tell AST routines to stop 
99 SWAKE_S ; Resume normal execution 


09 
04 O9A4 


vlehae 
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-SBTTL System Service Exception Handler 


heated | DESCRIPTION: 


s routine is executed if a software or hardware exception occurs or 
if a LIBSSIGNAL system service is used to output a message. 


CALLING SEQUENCE: 


Entered mh an exception from the system 


INPUT PARAMETERS: 
ERR 


OR_ COUNT = previous” cumulative error count 


AP -=-=> ! 2 1 


i eSeeeeet«a) 4 e8eeeo i 


! SIGNL ARY PNT 


| 4 7 ‘ 
| seseeeeeeeneeesce ' ' 
ESTABLISH FP ! 
: DEPTH ' Mechanism Array 
ly eas 
' seeseeesoeeoeoan ' ' 
: R1 : v 


1 
' 
9 BOSCO SSSSe@ ' 
! N-3 ADDITIONAL Signal Array 
: LONG WORD onl 

' 

' 

v 


IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 


SS$_NORMAL if it’s a UETP condition or RMS error. 
Error status from exception, otherwise. 


; SIDE EFFECTS: 


May branch to ERROR_EXIT. 
May print a message. 
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ystem Service Exception Handler -SEP- 
S S E j Handl SEP-1984 ) 
9A5 1584 SSERROR: 
OFFC RA 1 5 ~ WORD “M<R2,R3,R4,R5,R6,R7,RB,RI,RI0,R11> =; Entry mask 
Ay 1889 SSETAST_S ENBFLG = #0 ; Disable AST delivery | 
1 oD 0980 1 8 PUSH " ; Assume ASTs were enabled 
50. (09 p} 982 1 CMPL ¥ SSS8_WASSET RO ; Were ASTs enabled? 
eRe 985 1590 BEQL 0$ ; BR if they were 
6—E D4 14 ! 4 108 CLRL (SP) 3; Set ASTs to remain disabled 
9B9 1 38 SSETSFM_S ENBFLG = #0 ; Disable SS failure mode 
01 DD O9C2 1594 PUSHL “#1 3; Assume SS failure mode was enabled 
50 83 Di O9C& 1595 CMPL “#SS$_WASSET,RO 3; Was SS failure mode enabled? 
2 13 O09C7 1 3g BEQL 0$ 3 t was 
6— 04 434 1330 208 CLRL (SP) ; Set SS failure mode to remain off 
56 O04 AC 00 $3cB 1599 MOVL CHFSL_SIGARGLST(AP),R6 ; Get the g* {ares Boay A pototer 
59 04 A6 7D O9CF 1600 MOVQ CHFSL~S1G_NAME(R6) ,RO ; Get N in RY and 1 in 
4? ED 8203 1991 CMPZV ithe FAC NO NO,- i Is Mwy a Rat from LIBSS TONAL? 
00000074 8F 59 0906 1808 RO, #UETPS_ FACILITY 
14 12 O9DC 1604 BNEQ 30§ ; BR if this is not a UETP exception 
66 02 C2 O9DE 1605 SUBL2  #2,CHFSL_SIG_ARGS(R6) p the PC and PSL 
09E1 1006 SPUTRSG. S$ MSGVEC™= CAFSL_SIG TARGE (RE) 3; Print the message 
21 11 Bars 1oRt 30s BRB “408 ; Restore ASTs and SS fail mode 
59  0000045C ef D1 O3t 3 1609 CMPL #SS$_SSFAIL,R9 ; RMS failures are SysSvc failures 
2 12 O9F9 1610 BNEQ 50$ ~ ; BR if this can't be an RMS failure 
be ED bore 191) CMPZV Bits aS NO,- 3; Is it an RMS failure? 
mS, ORE eis RIQsARRSB FACILITY 
5A 0000000 8F cA QAO2 1615 NeL2 #*XF0000000,R 3; Strip control bits from status code 
08 A6 04 9 DA09 1616 ATCHC wc -CHFSL SIG A ARG1 (RO). - : Is it an RMS failure for which... 
004D'*CF QAOE 1618 NO_RMS_AST_TABLE 3 «..no AST can be delivered? 
1A 13 pat + 2 ine BEQL 50S : BR if so - must give error here 
01 ®BA OAS 1621 <RO> 3; Restore SS failure mode... 
OA1 16 § SSETSFM. s ENBFLG = RO Sees 
01 # ®BA pate 16 POPR <RO> ; Restore AST enable... 
0A 1624 SSETAST § EN NB LG = RO : 
50 01 DO QA29 1625 MOVL “~S*#SS$_NORMAL,RO 3 Supply a standard status for exit 
04 pA ; 1 § 50s 3; Resume processing (or goto RMS_ERROR) 
0146'CF 59 DO oA D 16 8 MOVL R9,STATUS ; Save the status 
58 D4 OA3S2 16 CLRL R ; Assume for now it's not SS failure 
59 G000045C 8F D1 OA34 1630 a #SS$_SSFAIL,R9 ; But is it a System Service failure? 
38 12 OA3B 1631 BNEQ 70$ ~ ; BR if not - no special case message 
ASD 16 § SGETMSG_S MSGID = - ; Get SS failure code associated text 
A3D 16 MSGLEN = BUPFER PTR,- 
A3D 1634 BUFADR = FAQO_BUF,- 
ASD 1635 FLAGS = #145e- 
A3D 16 § QUTADR = MSG_BLOCK 
O177°CF 9 A541 TSTB MSG_BLOCK+1 ; Get FAO arg count for SS failure code 
™. % A58 1638 BEQL ; Don't use SGETMSG if no S$FAO args... 
OO0C * CF OF ASA 1639 PUSHAL BYyF FER. PTR 3 ..-else build up... 
01 ODD OASE 1640 PUSHL 3 «+. message describing... 
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System Service Exception Handler UETP.SRCJUETDISKO (26) 
00741130 8F DD OA 1641 PUSHL #UETP i «eewhy the System Service failed 
00 A FO OA ieee INSV m0,8 ith SEVER 3; Give the Seabes Cues 
; Ab9 164 A SEV eRIYG” ops : rte * correct Severity code 
DO OA6B 1644 MOVL ; Count the number of args we pushed 
0 11. OA 1645 BRB 
A 1968 60$: 
SA DD OA70 164 PUSHL R10 ; Save SS failure code 
58 01 00 we 1968 708 MOVL #1,R8 ; Count the number of args we pushed 
57 666 9% C5 QA75 1650 MULL #4, CHFSL_SIG_ARGS(R6),R7 ; Convert longwords to byte 
5E 7 Ss A79 1651 SUBL ; Save the current sional array. 
6E 04 A6 ef are 1026 mMOVC Ry. CHFSL_SIG_NAME(R6), (SP) -on the stack 
t 66 8 ¢! A 1 ADOL RENT n° ARGS (R6), 2tsP)* : Push the current arg count 
0114 31 A 3 1634 BRW Pekan 


UE TOR SROO = VAX/VMS_UETP DISK + + a shi a a at 9 ee sae ae: Macro V04 


P a! 
General RMS Error Handler SEP=19 oge 


-00 
ETP.SRC SESDYSKOOOMAR: 1 (27) 
-SBTTL General RMS Error Handler 


++ 
3 FUNCTIONAL DESCRIPTION: 
This routine handles error returns from RMS calls. 


CALLING SEQUENCE: 
Called by RMS when a file processing error is found. Will also be 
called by TRY_SYSO if an error other than directory-not-found is 
encountered when creating a test file. 


INPUT PARAMETERS: 
The FAB or RAB associated with the RMS call. 


SPPPrrrrrrrrrrrrr rrr rrrrrrrrrr,r 


1688 
1889 
1660 ; 
1661 ; 
1006 ; 
1665 ; 
1908 3 
1665 ; 
1996 3 
1667 ; 
1889 
0 189 > IMPLICIT INPUTS: 
8 4 3 NONE 
0 1698 > OUTPUT PARAMETERS: 
8 1ore : NONE 
0 167% : IMPLICIT OUTPUTS: 
3 ort 3 Error message 
0 1679 : COMPLETION CODES: 
SB eam 
OABB  168¢ ; SIDE EFFECTS: 
8 1957 : Program may exit, depending on severity of the error. 
0 1685 :-- 
ttt 1889 RMS_ERROR 
OFFC ABB 1688 ~~ WORD «= *M<R2,R3,R4,R5,R6,R7,RB,R9,R10,R11> ; Entry mask 
56 04 AC DO QAB8A 1690 MOVL 4(AP) ,R6 ; See whether we're dealing with... 
66 03 91 OA8E 1691 CMPB #FABSC_BID,FABSB_BID(R6) ; ...a FAB or a RAB 
16 12 OA91 1926 BNEQ 10$ ; BR if it's a RAB 
57 giro’ ge 4) BA? 1937 MOVAL pitt R7 : dita bite Fe 4 text string... 
P} eee! ress 0 eee 
OC A6 9D OAIB 1695 PUSHL FABSL_STV(R6) : ...STV field for error... 
08 A6 DD OAIE 1998 PUSHL FABS$L_STS(R6) 3; «STS field for error... 
0146'CF 08 A6~ 00 BAA 169 MOVL FABSL_STS(R6),STATUS 3 «..and save the error code 
| ee _ 1628 een BRB COMMON ; FAB and RAB share other code 
57 sa D AA9 1700 : MOVAL RECORD,R7 3; RAB-specific code: text string... 
58 3C A6 DO OAAE 1701 MOVL RABSL_FAB(R6) RB ; ...address of associated FAB... 
OC A6~ =—~ODD AB? 17 ¢ PUSHL RABSL_STV(R6) 3 «STV field for error... 
8 “9 DD OABS 17 PUSHL RABSL_STS(R6) ; «STS field for error... 
0146'CF BA dO a 4 : men MOVL RABS$L"STS(R6) , STATUS : ...and save the error code 
SA 34 A8 9A OAB 1706 " MOVZBL FABSB_FNS(R8),R10 
AC2 17 CTRSTR = RMS ERR STRING,- ; Common code, prepare error message... 
AC 1708 OUTLEN = BUFFER_PTR,- 
AC 1709 heed = FAO_BUF,- 
ACS Tit POS AO, 
AC 21¢ PS = FABSL_FNA(R8) 
OOOC'CF DF OADC 171 PUSHAL BUFFER_PTR 3 «..and arguments for ERROR_EXIT... 


———_______, 
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OOOFO001 8F DD OAE PUSHL #*XF0001 S «ec 
809449 90 F DD OQAE PUSHL M#UETPS_TEXT & ees 
9 EF OQAEC EXTZV #STS$V_SEVERITY,- 
AEE 4H de EA i 
59 alt AEF STATUS,R 3 «-get the severity code... 
6E 9 88 OAF3 BISB2 R9,(SPS ;_...and add it into the signal name 
55555555 8F 18 Ae »} AF6 CMPL FABSL_CTX(R8) #DISK_K_PATTERN ; A test or an overhead file? 
05 13 OAF BEQL TEST FILE ERROR ; BR if it’s a test file 
93 4 + PUSHL # ; Current arg count 
009 1 44 BRid ERROR_EXIT ; Can't complete test normally 
9802 TEST_FILE_ERROR: 
0146'CF 04 9B CCRL TATUS ; Recoverable error, reset exit status 
5B FEFO C8 DE B09 MOVAL =UETUNTSK_FAB(R8),R11 ; Point to node for this FA 
OF AB «(OO1sédK 3 CMPW #DISK_K_CREATE, UETUNTSW_FUNC (R11) ; Were we doing a $CREATE? 
“ 8 BEQL 10$ ; BR if so (all errors count) 
0 We sometimes expect SS$_EXDISKQUOTA or RMS$_FUL errors as a natural 


oO 


consequence of trying to extend a test file. Ignore them here and let 
inline code where the SEXTEND is done handle the error. That same code will 
prevent further attempts at expansion because RO is pane jatety returned 
with an error value and DISK_M_NOEXTEND is set for the file. Noce that the 
RET instruction below will clean up the stack. 
L #SS$_EXDISKQUOTA,FAB ate ee Quota exhausted error? 
so 


2 ; 8 
CMPL #RMS$_FUL,FABSL_STS(R8) ; Error because unit was full? 
BEQL 20$ ; BR if so 


OC AB 000003EC ot 
08 AS 00000000°8F 01 
30.13 


DUTTA TUTTO & & & EWIDO) 2 


108: 
a D6 INCL ERROR_COUNT ; Keep a running error count 2 
0142'CF ODD PUSHL ERROR COUNT ; Have the error stand out in log file 
OOAO'CF DF PUSHAL PROCESS NAME 3 eee 
00010002 8F ODD PUSHL #*x1000 a ees 
00748020 8F DD PUSH #UETPS_ERBOXPROC ; Set the message code... 
6—€ 59 88 BISB R9, (SPY 3 ...and the severity 
00000000'GF 09 CALLS #9,G*LIBSSIGNAL ; Let the user know what happened 
02 8A BICB2 #UETUNTSM_TESTABLE,- : Indicate that this file is no good 
0B AB UETUNT$B_FLAGS(R115 
01 OE AB BI CMPW UETUNTSW_FUNC(R11),#DISK_K_CREATE ; Were we doing a $SCREATE? 
04 12 BNEQ 0$ ; BR if not 
04 86 BISB2 #DISK_M_NOCREATE,- 
0B AB ea UETUNTSB_FLAGS (R11) 
58 5B ; Set up args to see 


a a ee ee ee me ee ee ee ed a dd dd 
QQ QQ 
DAV PVSVSVSVSTST B™ BS ES ES ES EY EE IAIN NIN NIAAA PNINOPINININININY 2 Ss SS 
SOONAULE WN O OONAUS WN OS ODN NE WIN | O ODNAUE WN OOONOUsS 


MIMD OOOOH SMM AO SWOOP FOO WOWOWOOMALLL LLL] 


: 
RSS @ 
SODDSOO SOOO OOOO DS DOSS DOO G OD 


R11,R8 Re 
BSB DESTP_CHECK : .eeif additional message is needed 


ts) 
; Prevent trying to $CLOSE 
3; No more 1/0 to this file 

| 


. JO}sr00 


00A3° 


00741130 


QOA0' 


007410E0 


00000000 ' GF 


0146°CF 


10000650 
0002'CF 


CF 
0 

8F 
CF 
02 
8F 
07 


8F 
02 
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; Set message pointer 
et arg count 


: Indicate an abnormal termination 


; Output the mrsonge 
us 


: Indicate that the test is over... 


BSF 1768 .SBTTL CTRL/C Handler 
ast 1764 : FUNCTIONAL DESCRIPTION: 
BSF 1765: Th 
BOF 1766 : 
BSF 1767 ; CALLING SEQUENCE: 
ef 1708 : Called via AST 
B5F 1350 : INPUT PARAMETERS: 
BSF 1771: NONE 
BSF ire 3 
BSF 1773 ; IMPLICIT INPUTS: 
BSF 1774: NONE 
OBSF 1775 : 
OB5F 1276 : OUTPUT PARAMETERS: 
OBSF 1777: NONE 
OBSF 1778 ; 
OBS5F 1779 : IMPLICIT OUTPUTS: 
OBSF 1780 ; SEXIT status value 
OBSF 1781 ; 
OBSF 17 j ; COMPLETION CODES: 
OBSF 1783 : NONE 
OBSF 1784 : 
OBSF 1785 : SIDE EFFECTS: 
OBSF 1786 : NONE 
OBSF 1787 : 
OBSF 1788 ;-- 
OBSF 1789 
OBS5F 1790 CCASTHAND: 
OFFC 085 1791 -WORD “M<R2,R3,R4,R5,R6,R7,R8,R9.R10,R11> ; Entry mask 
DF 0B61 1338 PUSHAL CNTRLCMSG 
DD 0865 1794 PUSHL # : § 
DD 0B67 1795 PUSHL  #UETPS_TEXT!STSSK_WARNING ; Set signal name 
DD OB6D 1796 PUSHL # 
DF OB6F 1797 PUSHAL PROCESS_NAME gee 
DD 0873 1798 PUSHL #2 Bore 
DD 0B75 1799 PUSHL #UETPS_ABENDD!STSSK_WARNING : ... 
FB OB7B 1800 CALLS #7,G*LIBSSIGNA 
DO 0B82 1801 MOVL  #<STS$M_INHIB_MSG!- 
0B8 180¢ $$$_CONTROLC-= 
0B83 180 STSSK_SUCCESS+STS$K_WARNING>,- 
0883 1804 STATUS 
A8 B88 1805 ISW2  #TEST_OVERM, FLAG 
B90 1806 SWAKE_S 
04 0B9B 1807 RET 


: «and allow it... 
3 «to terminate cleanly 


Page 43 
a9° (38) 


is routine handles CTRL/C AST's by printing a message and exiting. 
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Error Exi - P.SRCJUETDISKOO.MAR; 1 (29) 
345 ! 9% ie -SBTTL Error Exit 
B9C 1811 : FUNCTIONAL DESCRIPTION: 
45 i 1 5 This routine prints an error message and exits. 
a9 18 : CALLING SEQUENCE: 
B9C 1815 ; MOVx error status value,STATUS 
0B9C 1318 3 PUSHx error specific information on the stack 
0B9C 13) : PUSHL current argument count 
945 : 13 ; BRW ERROR_EXIT 
OB9¢ 18 p : INPUT PARAMETERS: 
beae i ; Arguments to LIBSSIGNAL, as above 
OB9C 18 : : IMPLICIT INPUTS: 
OB9e 1898 — 
0B9C 18 é : OUTPUT PARAMETERS: 
peor 13st $ Message to SYSSOUTPUT and SYSSERROR 
0B9C 1869 : IMPLICIT OUTPUTS: 
4: 1330 3 Program exit 
OB9C 1832 : COMPLETION CODES: 
OBoe 188% Bee 
OB9C 1835 ; SIDE EFFECTS: 
OB9C 1836 ; NONE 
OB9C 1837; 
OB9e 1839 
943 127 ERROR_EXIT: 
OB9C 1366 SSETAST_S ENBFLG = #0 ; ASTs_can play havoc with messages 
15 0002'CF 03 £€O OQOBAS 184 BBS #BEGIN_MSGV,FLAG,10$ ; BR if ‘begin’ msg already printed 
7E b+ OQOBAB 1844 CLRL -(SP) ; Set the time stamp flag 
OOOF "CF DF OBAD 1845 PUSHAL TEST_NAME ; Set the test name 
02 DD OBB1 1846 PUSHL #2 ; Push the argument count 
00741039 8F ODD at 1847 PUSHL #UETPS _BEGIND!STSSK_SUCCESS ; Set the message code 
00000000'GF 04 FB pee) 1368 108 CALLS #4,G*LTBSSIGNAL ; Print the startup message 
O1BA'CF O08 BE C1 OBCO 1850 : ADDLS (SP)+,#8,ARG_COUNT ; Get total # args, pop partial count 
0142°CF D6 C6 +1851 INCL ERROR_COUNT ; Keep running error count 
00 dD CA 1 26 PUSHL # : Push the time parameter 
QOAO' CF OF cc 185 PUSHAL PROCESS _NAME ; Push test name... 
000F 000 HH DD OBDO 1854 PUSHL #* ; «.-arg count... 
00741062 8F DD O0BD6 1855 PUSHL #UETPS_ABENDD!STSSK_ERROR : ...and signal name 
140°CF DD OBDC 1 26 PUSHL ERROR COUNT ; Finish off arg List... 
10002 BF DD OBES 185 PUSHY g=Ki0002 Ne dee 
0074809 af DD OBEA 1889 PUSHL M#UETPS$ ERBOXPROC!STSSK_ERROR ; ...for error box message 
00000000 ' GF O18A'CF FB re ! 9 CALLS ARG_COONT ,G*LIL$SIGNAL : Truly bitch 
0146'CF 3 4 : 66 ay! TATUS - pid we exit with an error code? 
: we 
007410E2 8F 8 FF 1864 MOVL #UETPS_ABENDD! STS$SK_ERROR, - ; Supply a generic one otherwise 
0146'CF COS) 1865 STATUS 
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gcoe 1 66 20$: 
0146'"CF 10000000 8F CB OC 186 BISL #STSSM_INHIB_MSG,STATUS ; Don't print messages twice! 
0C11 1868 SEXIT_S STATUS ; Exit in error 


<= 
ad ~ 
< 
z 
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x 
-SBTTL Exit Handler 


yp 
>; FUNCTIONAL DESCRIPTION: 
Lode. Re hag aaneves cleanup at exit. If the MODE hogical neae is 
couse the routine will update the test “9 in the 
U TENTDEV. DAT File depending on the UETUNTSM_ reSthece lag state in the 
Hy Punts. FLAGS field of the unit blocks corresponding to a Line in the 


: CALLING SEQUENCE: 
: Invoked automatically by SEXIT System Service. 


; INPUT PARAMETERS: 
STATUS contains the exit status. 
FLAG has eynchronts eg bits 
DDB_RFA contains the RFA of the DDB record for this device in UETINIDEV 


3 IMPLICIT INPUTS: 

5 UNIT_LIST points to the head of a doubly Linked circular List of unit 
: locks for the device under test. 
: OUTPUT PARAMETERS: 

: NONE 


; IMPLICIT OUTPUTS: 
Various files are de-accessed, the pr ocess name is reset, and any 
pereesery synchronization with Le eve) is, serried out 
OF lLogicai name is e o ‘‘ONE’’, the rout ine will update 


the test 39 n the UETINIDE vax tite dependin 
UETUNTSM_ TEs ABLE by state in the UETUNTSB FLA 5° fieta of the unit 
blocks corresponding to 


; COMPLETION CODES: 
NONE 


the units on the disk controller. 


; SIDE EFFECTS: 
NONE 


BDOOGOCOOCOCOCSC COO OOOO OO OWWWOWO0 WO NNN NNN 


EXIT_HANDLER: 
«WORD “M<R2,R3,R4,R5,R6,R7,RB,RI,RIO,R11> ; Entry mask 


SSETSFM_S ENBFLG = #0 § Turn off System Service failure mode 
SSETAST_S ENBFLG = #0 3; We're finished - no more Asis 

BBS #ONE SHOTY. FLAG,10$ 5 os Bye ot update testabilit 

BRW END, OPDATE ; else don't update GET INIDEV "OAT 


BBS eae TO_UPDV,FLAG,20$ ; Only update if it's safe 
BR UPDATE ; Else forget it 


MOVAL INI “on. R10 > Set the RAB address 
4 #RABSC_RFA, RABSB RAC A mo 
Set RFA to DDB Line 


OvB 
MOVC3 #6 DDB. RFA,R 
$ : bo back to the DDB record 


OFFC 


03 0002'CF 04 
00CcD 
10$: 


wm 
-—-o>:.—Ci‘ HK OC 


03 0002*CF 02 
00C4 


wm 


20$: 
5A OA88'CF 

1E AA 2 
10 AA OACC'CF 6 


"008? 


moo 
oom 


RAB = TR105 
BRW UPOATE_FAILED : If failure then forget it 


wddabmaiadiadatadaiaicdiuabdabadbabuabaimimMBabadabaiauiabmbdataiutabeaiubabahad babaiabaiaiaBababadababaDabaD adbadaDd ada aad ad 
ANF WD O OONAU EWN 0 ONAN WIN 9 OD NAME WIN CO OD NAME WIN O OOO EWN 


WOODOVOWOVOOVOOOOOOOOOOO000 00000 000000 00 00 09 09 00 09 09 00 09 0) 00 0D 09 CD CD 0D CD CD CD: 


POPOPOROPONINS OO 


wm 
—o 


1€ AA 0 
58 0190°CE odb0bt90" BF 


01 
02 0B ae 

5 

5B 6 
00000190'8F 58 


1 
QOO18'CF 4E BF 
4E 50 


5B 6B 
00000190'8F 58 
01A6 CB 


30 
0014°CF 
OO14'CF 55 


——"5OOo moo 


58 OIA? 

C4 0B 
O018°CF 4E 
B2 

oc 

0168" 


6E 00741130 
00000000 ' GF 


03 0002'CF 


n 
@ 
AOSoConeo WH SOMOooOoOWU “Vi © LPOOOCPFOLOMW MOO 
<4 oOo dono ma en 


OO0F * 


AWONMW"SO O- WUFNWO-"oS 


7E 0146" 


m—Oo m—oom —o—00F 
OWO ON rO NMUWO 


WOOOOOOOOOOOOOOODOODODOOOOODODOOODODODOODODODOOODOOOOVOODOOOOODOOOOOOWOOO 
WRI 9 OONAUES WN OW OONAUE WN SO OD NAU EWI OOO NAMES WR 0 OONOAUS WN —OWOon 


eld ed ed eld cel cel eld cel eel eel eel eld eel ee. eel eel el eld el el eel el eel eel eel eel cere eel el cel cel eel eel eel cel el el eel eel eel cell cel eels eld eld elt eels eels ils lls ells cll enlls aaall 
9090909 NI NINN NIN NN NNAAAARAAAAAOOMMMNMMNM EB RR RR RRR 


Ww 
Oo 
bd 


C 
UNIT_LOOP: 
BB 


10$: 


20$: 


30$: 


MOVB 
SUPDATE 


L 
UPDATE_FAILED: 
PUSHL 


CALL 
END _UPDATE : 


10$: 


"Si$Ep=1986 04:56:37 LOetersmcSueroYsnooeman:1 "8° $95 


g ; Set back to sequential mode 


MUETUNTSV_TE 


S 
UE TUNTSB_FLAGS( 1 


DBBVveomMma-~ BDDBvwwcrz- 


C2 x Ororz—-D OF 2002-2 
More: Weve -+ Wren ——-— 


—~ 


A 
F 
E 
E 
ETUNTSB_FLA 


I 
F 
R 
Ss 
G 
DI SK_L_OTHER_ 


T 
S 
Pp 
T 


#UETUNTSM_TESTAB 


UE TUNTSB_FLAGS ( 
#*A/N/ ,BUFFER+4 
RAB = (R10) 
0,20 


RABSL_STV(R10) 
INIDEV_UPDERR 
#1 


#STS$SV_SEVERITY, 


#STSS$SS"SEVERITY 


#UETPS-TEXT, (SP 


#5,G*LIBSSIGNAL 
CLE 


#0 
TEST NAME 
z 


#STSSV_SEVERITY, 
#STSS$S_SEVERITY, 
STATUS, -(SP) 


AB 
( 
T 


RO,-(SP)" 


#TEST_OVERV, FLAG, 10$ 
LEAN_UP 


3; Set the unit block List header 
; Init a counter 


; BR if this unit is not testable 
; Count testable units 

; Next unit block 

3; Are we full circle in the List? 
; BR if not 

; Any testable units? 

6 yes... 

; «-.else disable the DDB record... 
o eee ere 

i; If error then forget it 

; Next unit block 

; Are we full circle in the List? 


; BR if yes 
; Is this node for file 0 on 


a unit? | 
; BR if not; we'll only SGET for first node | 


; If error then forget it 

; Convert to uppercase 

; Is it a UCB record? 

; BR if not : 

; BR if this unit is testable 


; See if other file on this unit... 
3 ..eif there is one... 
3 «.-might be testable 


: Get a record 


3 ane testable, disable UCB record... 
3 ..ehere 
; Look at the next record if no error 


; Do a simple message... 

; «--to tell of the failure 

Copy the severity from RMS status... 
3 «..tO our message 

; Did the test end normally (timeout)? 
; It didn't so must erase files 

Set the time flag 

Push the test name 


Push arg count : 
Push the proper exit severity... 
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Vv °580 Exit Handler ety 7 354589 UETP.SRCJUETD!SKOO.MAR; 1 . (4) 
6— 00741080 8F CB QODIE 1984 BISL2 #UETPS_ENDEDD, (SP) 3 «+-and use it in our message code 
4 DD OD 1985 PUSHL #4 
51 —E 00 QD 19 § MOVL SP,R1 
D2A 19 SPUTMSG_S MSGVEC = (R1) ; Output the message 
D359 +1988 SSETPRN_S PRCNAM = ACNT_NAME ; Reset the process name 
04 0D44 138R RET ; That's all folks! 
0D45 1990 
0045 1991 «END UETDISKOO 
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CREA 
EXTE 
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NAM 
RAB 
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HANDLER 
CHAN_MODE 
CR 
FILE_MODE 
GET 
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VETDISKOO = VAX/VMS UETP DISK EXERCISER 16-SEP-1984 01:22:47 YAX/VMS Macro v04-00 Page 
Symbol table ets 7 4:52:89 YOETP” See SGE DY SKOO MAR: 1 ° 38) 
10SM_CTRLCAST aeeeeeee =X 6 RABSL_ROP s 4 
10$_SETMODE keneenee =X 6 RABSL_STS = 8 
ITERATION 90000165 R 4 RABSL_STV = ¢ 
LC_BITM = 0 RABSL_UBF z 4 
LIESSIGNAL aeeenere =X 06 RABSM_ASY z 1 
MAX_DEV_DESIG = 90 90 A RABSV_ASY = 0 
MAX_PROC_NAME = F RABS$V_BIO = 
MAX" UNIT_DESIG = 00000005 RABSV_PMT z ° 1 
MODE 0000041 R 93 RABSW_RFA = 1 
MSG_BLOCK 0000176 R 4 RABSW-RSZ = 00 2 
NAMSB_ESS = QO0Q0000A RANDOM 0000166 R 04 
NAM$B_NOP 2 9 00008 ANDOM2 9 16A R 6 
NAM$B_RSL = RANDOM DATA VIAO R 4 
NAMSB_RSS = 0000000 AD_NEXT 8 orre R 06 
NAMSC_BID = 0000000 READ SIZE = 00 8 800 
NAMSC_BLN = 0000006 CORD 8 o69) R 03 
NAMSC_MAXRSS = QOOO00FF REC_SIZE = 00000 ¢8 
NAMSL_ESA = ss 4 RESTART 0000455 R 86 
NAMSL "RSA = 00000004 RMS$_BLN aeeeeeee =X 0 
NAME CEN = 0000000F RMS$_BUSY aeneeeee xX 03 
NEW RODE 00000198 R 04 RMS$_CDA eeeeneee =X 8603 
NOUNIT SELECTED 00000128 R 03 RMS$_ONF eeneeeee XX 06 
_CTRONAM 000000C4 R 03 RMS$_FAB eeeeeeee = X 03 
NO_RMS_AST_ TABLE 0000004D R 03 RMS$_FACILITY = 00000001 
NRAT_LENGTA = 00000014 RMS$_FUL aeeeeeee XxX 06 
ONE _SHOTM = 00000010 RMS$_RAB aeneeeee = X 03 
ONE _SHOTV = 00000004 RMS_ERROR QO000A88 R 06 
ONE-SHOT_ TEST OO000S1E R 06 RMS-ERR_STRING 0000020F R 03 
OTSSCVT_TI_L eeeeeeee = X 06 SAFE_TO_UPDM = 00000004 
OTSSCVT_TZ_L teeneeee =X 06 SAFE_TO_UPDV = 00000002 
OUTADDRESS 0000015A R 04 SECSA_EXPREG aeeeeere = X 06 
PAGES = 0000000 C$M_G tanerere§ = X 06 
PASS 00000172 R 04 SHR$_ABENDD = 00001089 
PASS_MSG 00000185 R 03 SHR$_BEGIND = 00001038 
PATTERN 00000267 R 03 SHR$_ENDEDD = 00001080 
PATTERNM = 00000020 SHR$_OPENIN = 00001098 
PATTERNV = 00000005 SHR$_ TEXT = 00001130 
PATTERN_DATA 000009A0 R 04 SS$_BADPARAM = 44 8 
PERCENTAGE = CCCD Fee $S$_CONTROLC = 00 O0e>! 
PMTSIZ = 00000019 SS$_EXDISKQUOTA = OOO0003EC 
PRE CLEAN aa re R 06 SS$_NORMAL = 00000001 
PROCESS_NAME B08 OOAO R 04 SS$_NOSUCHSEC = 3008878 
PROC. CONT-NARE : 0000088 R 9 SSE UASSET = 99000009 
‘ = 
PROMPT ~ é Rg 88 SSERROR 09009x3 R 06 
QUAD_STATUS 4A R 04 SS_SYNCH_EFN = S800 
RABS$B_PSZ = 34 STATUS 00000146 R 04 
RABS$B_RAC = 3 STRSUPCASE eeeeeere xX 06 
RAB$C_BID = 0 STS$K_ERROR = 0 
RABSC_BLN = 44 STSS$K_INFO = 
RABSC_RFA z STS$K_SUCCESS = 
RABS$C_ SEQ = STSS$K_WARNING = $ 
RABSL_BKT z STS$M_INHIB_MSG | 
RABSL_CTX = 1 STS$S_FAC_NO = 
$L-FAB = ; STS$S-SEVERITY 2 
ABSL_ PBF s STS$V—-FAC_NC = 00 9 1 
RABSL_RBF = 2 STS$V_SEVERITY = 0000000 


VETDISKOO 
Symbol table 
SUC_EXIT 
SUPBEV_GBLSEC 
SUP_F 
SYSSASSIGN 


$ ] 
SYSSEXPREG 
SYSSEXTEND 
SYSSFAO 
SYSSGET 
SYSSGETDEV 


SYS 
SYSSREAD 


SYSSWRITE 
SYSO_SYSTEST_DIR 
SYSIR_FAB 
SYSIN-RAB 
SYSTEST DIR 
TEST_FICE_ERROR 


Sut 


geererene 
teeerene 
geaeteree 
eerreree 
gerereee 
geeeeree 
eerreree 
eeereene 
eeerenree 
reereeeee 
gereeree 
ereraeree 
fereeeee 
rererenre 
eeeerree 
eeererenre 
00000061 
grreeeee 
geerreae 
geerenie 
gerenkeeee 
reeekeee 
eenreene 
gerkaeren 
eeeeeeee 
reeareene 
geereeee 
eerreree 
eeeerenre 
reeereene 
gereenee 
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The working set Limit was 2000 pages. 
12 bytes (248 pages) of virtual memory were used to butter, the intermediate code. 

There were 80 pages of symbol table goece ducing. $8 to hold non-local and 67 local symbols. 
1991 source Lines were read in Pass 1, producin object seca in Pass 2. 

65 pages of virtual memory were used to define 58 macros. 


ee 9 


Macro Library name 


“B35 S8ounse: ESS. 0843 ay tg MA Acaet: 1 


5SSDUA 
SYSL 63STARLET. MLB; 2 
Torte (all Libraries) 


1859 GETS were required to define 55 macros. 


There were no errors, warnings or information messages. 


VETDISKOO = VAX/VMS UETP DISK EXERCISER 16-SEP-1984 01:22:47 VAX 
Psect synopsis ety 7 8} 332 57 at 

pm eweneeananaaceca} 

! Psect synopsis : 

ace feces tense se=$ 
PSECT name Allocation PSECT No. Attributes 
. G % 0000000 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS~ LCL NOSHR 
SABSS 000000 ( 0.) O1¢ 1.) NOPIC USR CON ABS LCL NOSHR 
DEVDEP_STR_DEF 0 pete ( 2844.) ¢ ( g°} PIC USR CON ABS~ LCL NOSHR 
RODATA 0276 ( 820-3 ( -) NOPIC USR CON REL LCL NOSHR 
RWDATA 8 49 ( 3096.) 04 ( 4.) NOPIC USR CON REL LCL NOSHR 
SRMSNAM 000025 ( -) 05 ¢ 5.) NOPIC USR CON REL LCL NOSH 
DISK 00000045 ( 3397.) 06 ¢ 6.) NOPIC USR CON’ REL’ LCL NOSHR 

Se a es 
! Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 27 90: 00:00. 1¢ 98:00 :00.38 
Es processing 133 00:00:28.28 es Se 4 
Synool table sort : 00:00:02.25 $0:09:04.58 
s 2 35 88:66:08" 0 00:00:11.75 

Syabel table output 3 00:00:00.26 00:00:00.47 
Psect synopsis output 00:00:00.03 00:00:00.04 
Cross-reference output 2 00:00:00.90 00:00:00.00 
Assembler run totals 106 00:00:32.97 00:01:12.76 
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